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n UPDATE COMPUTER SYSTEMS 

UPDATE COMPUTER SYSTEMS is Edited and Published by Carol and 
Frank Davis of P.O. Box 1095, Peru , Indiana 46970. Phone number 
is 317-473-8031 , with normal phone hours being between 5 P.M. 
and 9 : 30 P.M. Eastern Time during the week and Noon to 6 P.M. on 
weekends . When we are not there or unavailable, please leave a 
message with our answering machine , you'll be answered by mail. 

Mailing date for all issues is the fifteenth of the issue month. 
At times due to Postal Holidays, or the 15th falling on a 
weekend (bulk mail not accepted on weekends) they will be 

received at the Postal Unit the next business day. Please allow 
two to three weeks from this date before assuming your issue is 
not on its way to you. I'he Postal scirvice tells us it can take 
as long as 6 weeks via bulk mail. For those wanting speedier 
service we can arrange your issue to go by First Class Mail, but 
that will raise the price of your subscription by $3.00. 

The magazine is published on a quarterly basis in the months of 
October, January, April and July. All subscriptions begin and 
end at the same time... first issue being October and all 
renewals coming due after receipt of the July issue. The cost 
is $18.00 U.S. for a one year subscription for North America, 
and for those outside of this area $20.00 U.S. We accept 

personal and business checks, money orders, and Cash. We do not - 
accept credit cards at this time, due to costs. Back issues, 
where available can be obtained from us, at regular prices. 

Assistance in Publishing this magazine is provided by Eliad P. 
Wannum , poet, computer user and all round good guy. The 
magazine is made possible by the regular contributors such as 
Peter Hale, Bill Cable, Al Feng, Bob Hartung to name a few, and 
by the many contributions of other writers and programmers. 
Your contributions to this magazine are welcome. This is truly 
a magazine BY THE USER AND FOR THE USER OF SINCLAIR, TIMEX AND 
CAMBRIDGE COMPUTERS. When we cover other operating systems such 
as CPM or MSDOS it will be in relationship to our computers or 
emulators for our systems to run their software. We primarily 
cover disk based systems and software for the TS2068, Spectrum, 
QL, Z88...and will cover items on the TSIOOO if disk drive based 
or in relationship to using it with the above men t ioned 
computers ." We do accept reviews of peripherals that are useable 
by our systems , such as scanners , printers, modems , etc . 
Subm i ssions should be on disk or hard copy ( two copies and at 
least NLO, no draft mode). If there is artwork, please let us 
know in what order it should be used, and provide it as a saved 
screen or hard copy screen dump. The format is very relaxed. 
Just pay attention- to the width of the pages and allow 3/4 inch 
top and bottom, and make the left and right margins wide enough 
to accomodate a 3 hole punch that does not cut out some of the 
text. We have enlarge and reduction capacity to adjust a page, 
but may lose some print legibility in the process . Most 
important is legibility. Dra f t qual i ty dot matrix does not 
reproduce well. Print size preference is ELITE 12 characters 
per inch. PICA 10 characters per inch is okay also, but please 
no condensed print. Please do not make programs submitted on 
cassette tape under any circumstance, disk or hardcopy only. 
Exceptions to this would be the wafers used on the Rotronics 
Wafadrive for the Spectrum or TS2068 with emulator . Z88 
programs on disk may be in either IBM or OL format or hardcopy. 
TS2068 programs may be LLISTED in 32 chr. lines. 
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The computer that an article concerns is marked by using the 
following mark at the start of the page number-TS2068 = *,QL = # 
,Z88 = % ,TS1000=^. There will be no mark if the article or ad 
applies to all or several dif'ferent computer systems. 
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Ail material used in this publication is copywritten and remains 
solely in ownership by either the Magazine or the author. To 
reprint from this magazine please contact either the magazine 
or specific author. All Issue Disks are copyrighted and remain 
the property of the software author. All hardware advice is 
followed at the users sole risk. Where it's needed please obtain 
competent help on all hardware modifications or projects. Most 
of all enjoy the magazine and may it greatly enhance your use of 
your computer. Your contribution is encouraged. 
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ISrOT QUXTE AN EDITORIAL, JUST ISTEWS 



Well it had to happen at 
some time, this issue I ran out 
of room for all that I wanted to 
cover. The sad part of all of 
this is that I wanted to have 
more coverage for the Z88, but I 
am stuck with what is submitted 
to the magazine. We have picked 
up at least 6 more of our 
readers that have Z88s, so I 
hope to see this improve a bit 
in the future. At the present 
about 30% of you have and use to 
some extent a Z88. Over half of 
you have QLs and about 40% of 
you have TS2068s. Many of you 
have 2 or more of the above, -and 
at least 25% still have a TSIOOO 
and still consider it a neat 
little machine "to use. 

For those who have or are 
considering a Gold Card for your 
QL, I have included something in 
this issue that I normally do 
not do, an article taken from 
another magazine. The article 
was of such high quality and the 
news of such importance that I 
felt duty bound to make this 
data available to my readers. 
This article concerns the 3.2 
meg drives and the proper 
settings to use the TEAC version 
of these. The article is by 
Dick Taylor and is from the 
International QL Report. Thanks 
guys! 

Also, when you -come to the 
ads for Mechanical Affinity for 
the Gold Card, they are no 
longer $500 plus $10 P & H; they 
are now going for $490 and this 
includes P & H and insurance. 
They are in stock and available. 
Plans are also in the works to 
include much more in the way of 
English, German and Italian 
hardware and software for the QL 
and the Z88. If they do not have 
what you want in stock they can 
usually get it for you. We need 
to have more North American 
dealers for our computers! 

More good news to follow. 



In this issue we have 
started the first part of an 
extensive program for you to 
type in that will allow you to 
create printed circuit boards, 
high definition art, logos, 
banners, etc. on your TS2068. 
It is a full featured Computer 
Aided Design program, and it 
is a biggy. We did not have 
room for all of it in one 
issue, so more in the next 
issue. For those in a hurry or 
not wanting to spend all of 
their available free time 
typing it in... it is being 
offered as an Issue Disk. 
Check the back pages for 
details on how to obtain this 
work of art from Bill Pedersen 
for the Larken and Oliger disk 
systems. For those who order, 
they will get many files all 
set to use for printed circuit 
boards . 

Some news on the Z88 front 
from Mike Fink of Domino Cubes 
and a new location. Domino 
Cubes, 484 W. 43rd St., Suite 
27Q, NY, NY 10036. Phone No. 
212-971-0368, and FAX is 
212-268-4122. Mike promised me 
some articles and ads for the 
next issue, and said to tell 
all of you that he has at 
least 3 things for your Z88 
that can be found no where 
else: (a) a mail merge that 
really works for the Z88, (b) 
Remote Control Macro that does 
DTP and multiple copies and 
you can turn it on and off 
from anywhere, (c) single 
stroke loading of selected 
files from an eprom into an 
empty filer. Of course he also 
sells Z88s and books, cables, 
software, etc. 

Nigel Searle of 16 Church 
Street, Keene, NH 03431, 
Telephone 1-800-388-9836, has 
for sale: Z88s for $199, 
Memory 128K for $40, Memory 
512K for $160, and other 
items. 
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T/S 2068 AND THE LARKEN AND OLIGER DISK DRIVES. 



Submitted by Donald S. Lambert 

Letter to George Chambers 03 02 
1992. 

In all my computing, I have been 
trapped by a problem three 
times. Of course it is all my 
fault but maybe there is a way 
out. And that is on each of 
these times I have either tried 
to SAVE to a disk drive that I 
didn't have or on two occasions 
I tried to SAVE when the disk 
interface to disk drive ribbon 
cable was disconnected. Try as 
I might I have found no way to 
abort the SAVE and have had to 
turn off the computer and lose 
the file. It might be possible 
to plug in the disk drive ribbon 
cable but there is always the 
possibility of zapping 
something. And while I have a 
Larken disk interface with a 
RAMdisk that is full and besides 
once you have committed to a 
disk drive the computer hangs 
onto that drive until it is 
used^ What do you do in that 
situation? 

George replied 03 14 1992. 

I have been looking at your 
letter. You asked about how to 
break out of a computer lock-up 
when you try to make a SAVE/LOAD 
to a non-existant drive. You are 
correct, I would never plug a 
drive in while the computer is 
powered up. 

I thought I probably knew the 
answer so I shut off my 
computer, disconnected my drive 
0. Then I re-powered and tried 
saving an Mscript file to drive 
0. Well all the other drives 
spun of course, but not the 
disconnected drive 0. The 
computer was hung up. I then did 



what I would usually do. I 
pressed the NMI- button and then 
the A key. As I expected the 
computer broke out of it's 
hung-up condition with an error 
report at the line in the 
program where the SAVE effort 
occured . 

That is pretty simple. I thought 
everyone knew that. To continue, 
if you inadvertently press the 
NMI- button you can recover from 
it without harm by pressing the 
ENTER key. Also, if you are 
trying to breakout of a program 
that is heavily protected, and 
the NMI- and A key routine does 
not work, try pressing the NMI- 
button and then press the 1 key; 
i. e. do an NMI- type save to a 
protected disk. You will get a 
"Protected disk" error report, 
and you will be back out of the 
lockup. Sometimes, depending on 
the nature of the protection the 
computer simply crashes and you 
get the Sinclair logo. I use 
this method particularly with 
Spectrum games, which for Jthe 
most part are heavily protected. 

Don: I had never considered the 
use of the NMI- button so I 
guess I am not everyone. 

I have an idea to try out, si.nce 
both the Larken and the Oligfer 
use the NMI- button will it also 
work the same on the Oliger? 
It works with the Oliger except 
•that the A key does nothing but 
the 1 key will allow you to use 
the BREAK function and get "D 
Break - CONT REPEATS 0:1". I 
don't know if anyone ever gets 
locked out but this is one way 
to recover. But here is a 
possible way out of a dilemma 
that would otherwise result in 
a loss of data. 0/0. 
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LKDOS Ul_0 3AF^E 



John Oliger's format predates Larry Kenney's, giving Larry the opportunity to 
build on it. As you can see, Larry added the IBM index mark which could make his 
disks readable using MSOOS, though only through ROM BIOS calls because there is no 
boot record recorded. Its value is questionable. 

John Oliger had a sifnil€U" advantage from another source, but did not inprove 
on it. The decision was made to use 512 byte sectors instead of 1024 byte five 
sector ISO MFM. It seemed like a good idea at the time, but nobody who wanted to 
develop a 2068/SpectrLiTi DOS was expert in disk drive technology. The 10 
sector /track 512 bytes/sector format became a de-facto standard. It is really 
quite unfortunate that this happened, but consider what it would have been like 
without any 2068 DOS at all. 

For reliability reasons, there is only enough room for nine 512 byte sectors 
on a double density disk. Gaps straddling data records build up splice marks with 
successive writes. Drive speed variations demand that gaps be a certain minimum 
size. Controllers need intact gap bytes before and after splices to allow them to 
detect and ignore them. Both formats above require equipment to be better than 
average. It is not unusual for available drives to give trouble, much more 
noticeable with LKDOS. 

Using five sectors of 1024 bytes each would require only minor changes in 
machine code and be invisible to the user, however, it would not be easy to 
reformat existing disks. New EPROMS would be needed. This does not seem to be a 
good answer. 

John has an updated EPROM which increases the DATA gap acceptably. 

LKDOS uses software to FORMAT disks. I have revised this program for my own 
use for other reasons, so changing it so both system formats MATCH is "duck soup". 
Actually, they need not match exactly. The new LKIX)S format loses its IBM IMDEX 
GAP, and ignores JLO SAFE's track sector stagger. The only observable effect is 
losing CRC errors. 

John originally used * to trigger the format editing error which he then used 
to bank switch his own ROM into low memory. Later he changed this to / because the 
2068 partially supports * in relic code, changing syntax error sensing locations 
and messages. Forcing errors so they can be "trapped" is an ancient trick with 
progrannmers , but it is only a temporary way to add new features. It should never 
be used for permanent functions. The change to / was symptomatic. 

Larry Kenney took a different approach. He created a' bank switching conmand 
to replace error trapping. In a way, *, /, and RANDOMIZE USR 100 su^e equivalent 
bank switching instructions. They differ in convenience only as far as the user is 
concerned, though this is not true for special features each elected to supply in 
their EPROMs. Both systems work and have their followings. 

After formatting a disk, it is necessary to build a disk directory and File 
Allocation Tables (FAT) in track 0, 

Both systems combine the two, but in different ways (Arv expert would avoid 
simplification because of future problems). Both system authors pride themselves 
on this, yet both reap some of the problems caused by it. 

John Oliger structures his directory so it contains a pointer to the disk 
location of the named file. With only one pointer per file, files must be stored 
without gaps between them so their lengths can be determined. It requires special 
attention when erasing files. Files must be rewritten to opened up space, and the 
directory updated. A file which expands enough to require another track must be 
renamed before it can be stored. These are the "wages of syntax", a relatively 
small price to pay. 
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Larry Kenney structures his directory so it contains a list of pointers for 
each nanned file. This permits holes to develop where files have been deleted. The 
list of pointers is consecutive unless holes are being filled. When this happens, 
files become fragmented, just as they do in MSDOS. 

Defragrenting and closing up holes requires disk to disk transfer, though one 
drive is enough to do the job. 

LKEX)S has a file header system which JLO SAFE does not. It decreases the 
amount of data which can be stored compared with JLO SAFE, though not by muph. 
Header information is placed at the beginning of every track, and seme space is 
wasted at the end. There is enough data to reconstruct a corrupted directory. 

The header contains a CRC entry. Because disk controllers generate and check 
their own CRCs, there seems no rea^n to include this redundant feature. Larry 
explained to me that this is required for his RAMDISK, so the directory 
reconstruction ability is a convenient side effect. 

It would be foolish of we to expound on the merits of program features of each 
system. They are different. It is nice to have both but switching between them 
isn't easy — though L. Crawford of London Ontario has a setup you will find hard 
to believe. His MACRO keyboard deserves a review in itself. 

In closing, the 1770 controller was designed to be a cheap replacement 
controller. It is ... cheap. It replaces a set of chips and components without 
dup 1 i cat i ng the i r per f ormance . 

A respectable disk drive puts out a READY signal as soon as it is spinning 
fast enough to function correctly. Most reach this condition in less than one 
revolution of the disk. Of course, functioning irrplies a capable controller. 

The 1770 ignores this signal. It isn't even attached. The reason is sirrple 
enough. It does not contain a phase- locked- loop to synchronize its clock with the 
disk bit rate. 

Instead, it contains the equivalent of a UART used with serial ports. By 
chopping a "frame" into smaller parts, you can change the size of a window in which 
an event (bit) occurs. That's why the 1770 requires a higher frequency clock. Like 
a UART it is set up for a nominal baud rate &nd cannot tolerate much deviation from 
that rate. 

of nominal. Though this is no problem for* a phase- locked- loop, it is for the 1770. 
The penalty is the loss of many seconds when you use your disk a lot. 

Even though John Oliger has done a remarkable job getting the best from ihe 
1770, it is slow with respect to an IBM clone controller csu^d which doesn't' have to 
wait 5 revolutions before starting operation. 



MECHANICAL AFFINITY AD 



For the best prices on items for your Timex or Sinclair line we 
ask that you give us a chance to fill your order here in the 
Americas, both North and South and all in between. Contact Frank 
Davis at MECHANICAL AFFINITY, 513 EAST MAIN STREET, PERU, IN 
46970, or contact Paul Holmgren at MECHANICAL AFFINITY, 5231 
WILTON WOOD CT, INDIANAPOLIS, IN 46254. All prices are in US 
Dollars, and we do not accept charge cards. 

TS2068 COMPUTERS FOR $50, includes manuals and cables. 

TS2040 PRINTERS FOR $40, includes extra thermal paper. 

TS2050 MODEMS FOR $35, includes software. 

DOCK PORT SPECTRUM EMULATORS FOR $25. 
We hope to be of service to you. All items listed include 
postage within the continental USA. For out of the USA, please 
include $5 to cover the total shipping. Catalog available on 
request. Thank you. 
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by EL IAD P. WANNUM 

Last issue I told you we would be looking at some of the 
newsletters of North America, so here we be. I also mentioned 
that I would hold off on subscribing to QL World, as at that 
time they had an uncertain future. It appears we can rest 
assured for now that QL World will be around for awhile, it was 
bought by what seems to be capable hands and is still 
publishing. Now let us see what we have in the way of news from 
Sinclair Clubs and Groups. 

For QL users we have the NESQLUG News, % P.O. Box 8763, 
Boston, MA 02114. Seems to be bi-monthly and is edited by Peter 
Hale of EMSoft. Annual membership is $10, $5 for students, and 
$15 out of North America . 

FDD Newsletter for the Zebra Disk Drive System, is edited by 
Jay Siegel, 1274 49 St., #821, Brooklyn, NY 11219, Phone 718 
853-7521. A good mix of hardware, software and CPM coverage. 

QZX, the Journal Covering Amateur Radio and Sinclair 
Computers. That is quite a mouth full, but just what you get 
from this long running newsletter edited by Alex F. Burr, K5XY, 
2025 O'Donnell Drive, Las Cruces, NM 88001. $15 a year for 12 
issues. This is not just for ham radio operators. 

SINC-LI.NK, edited by Jeff Taylor of the Toronto 
Timex-Sinclair Users Club, 14 Richome Court, Scarborough, 
Ontario, MIK 2Y1 . The largest newsletter put out by any North 
American club or group. It has very heavy emphasis on the Larken 
interface for the TS2068, good support for the TSIOOO, and above 
average QL coverage. No coverage of the Z88. Newsletter 
subscription alone is for $12, and full membership is $20 a 
year. Good use of Print Factory on the TS2068 for graphics. 

The RAMTOP, is published quarterly, and is edited by Thomas 
Simon, 615 School Ave ., Cuyahoga Falls, Ohio 44221. It is the 
publication of the Cleveland TS Users Group. No mention of rates 
for those wanting to subscribe. Covers TSIOOO, PC, QL and 
TS2068. 

SWYM, the newsletter for SEATUG, is edited by Chuck 
Kereluck and can be subscribed to by sending $10 to Dave 
Battershill, P.O. Box 64462, Tacoma, WA 98464. Seems to cover 
all but the Z88. 

ISTUG, the newsletter of the Indiana Sinclair-Timex Users 
Group is edited by Frank Davis and assistant editor Mike 
Felerski of desk -top publishing fame. It covers mainly the 
TS2068 and QL, but has occasional coverage for the Z88 and the 
TSIOOO. Newsletter subscriptions for non-members are $9 a year 
and can be obtained from ISTUG, 513 East Main, Peru, IN 46970. 

THE PLOTTER, is the newsletter of the Clackamas Computer 
Applied Training Society, 1419 1/2 7th St., Oregon City, OR 
97045. It is edited by Dick Wagner and is heavily contributed to 
by Rod Gowen of RMG. Subscription is by membership and is $20 a 
year. It covers all of the Sincalir computers, except the Z88. 
It also covers the PC, and IBM compatible shareware, 

CATS Newsletter, the journal of the Capital Area 
Timex/Sinclair Users Group, is edited by Tim Swenson. It 
supports all of the Timex and Sinclair computers and a 
newsletter subscription can be obtained for $12 a year from 
CATS, P.O. Box 11017, Takoma Park, MD 20913. 

For the Z88 user to get full coverage he can subscribe to 
Z88 EPROM, % Roy Woodward, ZB8 Users Club, 68 Wellington St., 
Long Eaton, Nottingham NGIO 4NG. Rate for a subscription is 
unknown at this time, but I have seen some excellent back 
issues. Resembles the QUANTA format of magazine/newsletter. 



♦EXTRA* *EXTRA* 



BACK ISSUES OF UPDATE MAGAZINE 

For those who are new to UPDATE and want to be able to get 
back issues that they may have missed, we will be offering the 
following for a short time only. This offer is good only till 
the end of July 1992. Any one back issue for only $4.50, or 4 
issues for $16.00. We have available the following issues. 

October 1991, July 1991, April 1991, January 1991, October 
1990, April 1990, January 1990, October 1989, July 1989, 
April 1989, January 1989 and April 1988. 

If ordered, these will be sent to the requested address by 
first class mail. From what we last heard from Bill Jones he did 
not indicate that he had any more back issues from when he was 
publishing UPDATE, so I assume these are the last issues 
available, other than by buying used copies from friends. 

Now of course you may start or renew a subscription to 
UPDATE at any time and receive all of the back issues of the 
year in which you started the subscription. We may once in 
awhile be a week or two late getting the magazine out, but we 
will not leave you in the lurch like some have in the past. 

We also have available for you copies, 2nd Edition, of the 
QL Survivors Guide, for $10,95 postage paid. Find out where the 
hardware, books, software, repair facilities, user groups and 
magazines are that cover the QL worldwide. ' . 



LATE BREAKING NEWS ABOUT COMPUTER MONTHLY 

I just got a call from Bill Ferrebee, who writes the TS 
Column for Vulcans Computer Monthly. They told him that after 
the June issue they were going to be going to a strictly IBM and 
MAC format. Shades of Computer Shopper M! This means that they 
will be dropping all of the Classic Computer coverage, from 
Commodore 64 to TI99, and us included. They will also be 
dropping the Amiga and Atari ST. Bill said this was a decision 
made by the owners of the company and not by the Editor or 
staff. I am not sure if it would do any good to let Vulcans know 
what we feel about this, but I am going to do so anyway. They 
seem to have hit me on all of my computers, from my QL to my 
Amiga and all in between. Speaking of the Amiga, I have the 
latest version of the QL Emulator fou the Amiga. I plan to give 
a write up on this software in the next issue, and possibly the 
Spectrum emulator for the Amiga. I (also have a Commodore 64, 
Atari ST, Mac and IBM emulator for my trusty Amiga. It is a nice 
computer except for the Workbench and CLI environment on it. It ' 
is great for emulating, but not all that hot for use as an Amiga 
if you are a programmer. It uses huge amounts of memory for. 
screens and for many of its programs. I have a few programs that 
require 3 meg of memory as a minimun! Having weaned myself on 
computers such as the PDP 8 and 11 and the ZX81 I learned to 
conserve memory. Is this the wave of the future of computing? 

One last note for all of you. You have only one more issue 
before it is time to renew again. Write and let us know if you 
want us to continue with UPDATE. It took a long time for most of 
you to get your renewals in the last time, and frankly I find 
that to be discouraging. All but a few ended up renewing. 



7 




^CDdpjtEf 

□ J 1 3 

rfDDucisr 



If so, look no further!! 
We have the LPRGEST stock of h/w & 
s/ui for the T/S line of computers 
PNYWHERE IN THE WORLD!! 



For a catalog and price list call or ujrite: 

A flHk t flHHB MHB gammm §mmmk a/mm mmt^ flBBBABBi A i JHHB flHBIi m 





1419 1/2 7TH STREET 
'OREGON CITY, OR 97045' 
503/655-7484 N00N-10PM PT T-S 
FOX: 503/655-4116 
VISR/MC/CK/MO - $3.50 (REFUNOPBLE) 
(STOTE COMPUTER MODEL FOR PRICE LIST! 
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HoffHan Estates^ 



Since my last article on the Tandg 
DMP105 printer, modification* were made 
to screen dump 4 times the normal size 
to about a *ialf page worth. Also the 
print head is nou> controlled so it can 
plot to any location on the page. In 
this case, the font style controls the 
width; ELITE (12 CPI) & Expanded was 
used below. ^ ^§lf thP vprt;^;^^ PIHIglff 
Wggtf fgr 9fW print ^gjtf P^ffSt The 



program should be aplicable to other 
printers with proper modifications. 
To obtain a negative (inverse video) or 
vice versa add NOT. NOT POINT(C,R-xx) 

1 REH TANDY DNP105 PRINTER DRIVER by Abed Kahale 1/92 
2i RANDOniZE USR IIB: OPEN 13, "LP* , 
30 RANDOHIZE USR 108: POKE 16092,0: REH No line feed (otb 

erwise double spacing) 
50 RANDOHIZE USR 100: POKE 16093,32: REH LPRINTs & CHR$& 

sent to printw. 
80 LPRINT CHR$ 275CHR$ 2i',Cm 21',m% 14;CHR$ 18: REH El 

itCf Expanded (Elongated!) & graphic lode. 



iL Eoiqs 

Font by ZUNK 



ffi>LPRINT CHR$ 18:REH Line feed. 

90 LPRINT CHR$ 27;(H» 16;CHR$ 0;CHR$ 35: REH Locates head 
(•argin) at 35 pixels fro» the left. 

95 RANDOHIZE USR 100: LOAD •C.C$"SCREEN$ 
155 FOR Y=« TO 175 STEP M LET R=175-Y: REH vertical pixels 
; tacken twice for 8-pin head, 
160 FOR C=0 TO 255: REH Horizontal pixels. 
170 LET B=« 

180 LET B=B+POINT (C,R-.5): REH divided by 2 
190 LET B=B+2*P0INT (C,R-1): REH 
200 LET B=B+4»P0INT (C,R-1.5): REH 
218 LET B=B+8*P0INT {C,R-2): REH 
220 LET B=B+16»PaiNT (C,R-2.5): REH • 
230 LET B=:B+32*P0INT (C,R-3): REH , " 
240 LET B=B+64fP0INT (C,R-3.5): REH • 
250 LET B»B+128 

255 IF IN 1270236 THEN GO TO 255: REH ChecH if READY. 
260 LPRINT CHR$ B; 
270 NEXT C 

280 LPRINT CHR$ 27?CHR$ 9t|CHR$ 0: REH carriage return. 
290 NEXT Y 

300 LPRINT CHR$ 30: REH Back to character wde. 
320 STOP 
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HiA>tonAjoMjy y cx>mputc^ ctU^ oo^/Tfenterf on, >uu(Aajuid mjLgnejtlc tape. nAdU>. 
E^oruUjMy , a. tcupo. m^b poMjud Into a loop and ipsJUb^ruid, The. toop tasu6 iaMjmoxi 
tjo a dUk, and -dpim andoM, the. umjjjJL A/ixxd hexxd, mjcmu>Q. -6o rmny tnjouciu> oMd be. 
acjcommdatjizd, a. rmvoMa. hjzad Ajzjpixuuzd rvuJitlpZe. headU, In the. XnteAOAytii o^ 
e44ilcAjenjcjy i ^evojuxt duAh^^ mnjL Mocked An. a. 4Angte. dnAJje.. EoAJty "MaxJUi" idrudn 
mAe. nemovabte. did not uml the. tjop and bottom -^u/Uacjz^. Head JloadlnQ mA> the. 
oppoMte. o4 the. ^owcXutA caiJjpe/i. method and fiecui6 Ajetnacted. 

The. oddAje.'bMnQ method ^on. Modi dMAX>eA> -16 urUveA.&aJi. The. tje/im6 volume., 
hexxd, cytlnde^, t/wudzy and >f>exitx>A, ojie. oM deAAJjed i^m them, thoagh thje/UL -i6 ^ome. 
ambX^uuixjj tn tnteApnjetatJj^rL at. tAjn¥U>. TheAe. u)eAe, at6o dnAjje^ tn the. ^owi o4 a 
cylAndeA. uilti% many, many keaxjU -ion, ioM. mjulnlname. cx>m]fXJiteA6 . 

VOLLMB ThL6 geneAoMy Ae4eAA> to a lump q4 MonoQe. you. can canAXj abound, UOken 
the- lump hanated by a jakettox. type, machuie. tt aa> CJonMdeAjed the. ^i^asm 
aA> njsmosjoble. Mo^age excjept 4oa. label, checking. It doe^'t tmplu any 
paAttculan, medium Monage. on. an addnjUyii . It could eyen be. a book 
gixjen mode/m. choAocteA. njsjuogniJJjon tejchnology . 

CyilWPER A tnacJz on one. ^ude. one. dAAh lXneA> uup uxith conAje^ponding one^ on 
e.\jeAy otheA. diMi and oAJoAAable. Mde.. TogetheA they define, a. cylindeA. 
CylindoA^ oac. numbeAjed -(^Ajom the. oat^ide, edge. imxxAd. rhl6 iA NOT the. 
tnach. numbeA. See uhi/ An. a moment. 

HEAP ThJU> etthjeA. ^pejcJ^ted on. tnclnded impUjiitZy ajx SIVE. H-UjjoMy , but. 

not oAuxjuy-fi, hjead^ one. numbeAjed 4nom bottom tx} top. A njemovable. Mack oi 
7 dAJkA> (jOouJtd have. -6oc paOu .6en4yitJjje. .^uA^axie^ and Mx. paiAA> o4 
hexxdUi . HejoudU> (aouM be. nimboAjed 0 thnjough 1 7 . fon. a 2 dt6h caJtlpeA Mack 
[>(mxJUi hand dnAMe.) , thejy numbeA ^njom 0 thnoagh 3 . 

"SIDE" Uhejv theAe. iyi> only one. diiJz tn the.'Mach, tt t^ cormon to nje^eA to SIDE 
inMead ol HEAP. Tht^ can be. con^aMng yoa ^on^geA^ thjejy OAje. di4,'^eAjent 

things enxAAeJiy . 

"TRACK" UUtit a. Mngle. Mded diMi TRACK i.6 thd >>a/7ie CVLINVER. Adding a. 

^Qjiond Mde. AntAodaceA ambtgiiity . 14 you. uAe TRACK and SIDE togetheA, 
TRACK and CYLIWER NUMBERS match, BUT . . . 

Some- dUMi .t>yMem^ tneaJt even TRACK numbeA^ to be. on SIDE 0 and odd 
tiumbeAA to 6c on SIDE 1. Oh boy! Let' -6 Mick mtiz VEVICE {DRIVE), 
VOLUME, HEAP, CVLINDBR and SECTOR aivd ^tajje. lu> ^ome. headaciie.6. 

14 tuc taJ^k about. TRACK at a phyMjcxiZ Mxtnage. unit, theAje. t^ no pnjobl/m. 
It a veAJj ahe^uJi teAm, mexmlng a cjontinuoiu> placje. to nojcond umMi no 
bneakii, only encU. Any numbeAAng 04 tnach^ -Lb anbttnany. 



ARCHIVE made eaay 
(c)1984 PS I OH LIMITED 

by A. Hradesky 



According to Webster's Ninth New 
Collegiate Dictionary, "data- 
base n (1967): a collection of 
data organized especially for 
rapid search and retrieval (as 
by a comuputer ) " . 

According to the QL User Giiide, 
"QL Archive is a database 
program which enables you to 
create filling systems for any 
type of information you choose". 

As many of you know, QL-Archive 
(QLDB) is one of four programs 
given free with the purchase of, 
a Sinclair QL. It is perhaps 
the most difficult of the three 
to program (but not to use). The 
everso powerful command 

structure and programming 
language within Archive can give 
the 'un-taught* user many fitful 
moments. 

Before starting, the program we 
will be using comes straight 
from the QL User Guide (Chapter 
10, page 21) and therefore is 
directly aimed towards the hew 
user. This tutorial, will 
hopefully enlighten non- Archive 
users to realize the potential 
they have when given the proper 
tools for programing (like 
Archive) , 

Ve will, however, be giving the 
particular program somewhat of a 

face lift. A few tricks learned 
from QL Vorld magazine will be 
used to give our program some 
flare. 

First, let us start by creating 
a card index (Rolodex??). "An 
Archive file behaves rather like 
a card index. A real card index 



consists of a box containing a 
set of record cards, each card 
contains various items of 
information". In this case, the 
' box' represents the most 

important part of any data base, 
the data base file (DBF). 
Technically speaking, without 
the DBF, there really would not 
be any data base. The, DBF 
contains all the pertinent 
information which the data base 
program uses. 

Load Archive as per the QL User 
Guide (versions 2.01, 2.30, 
2.30RTM, 2.38 and 3.87 Turbo are 
all supported). To !CREAT'E'; the 
DBF, we must first specify' all 
the fields each record will* use. 
To accomplish this, enter the 
following as shown: 



CREATE "mail" 



< PRESS ENTER > 



This places you in sort of a DBF 
editor. Archive expects you to 
input the titles of every field 
needed for your DBF, Knowing 
this, enter the following: 



TITLES 

FIRST_NAME$ 

LAST_NAMES 

ADDRESSS 

CITY$ 

STATES 

Z I P_CODES 

TELEPHONES 

ISSUES__DUE 

MONTH_DUES 

YEARLY_DUES$ 

PAYMENT INFOS 

USERGROUPS 



< PRESS 
< PRESS 
< PRESS 
< PRESS 
<PRESS 
< PRESS 
< PRESS 
< PRESS 
< PRESS 
< PRESS 
< PRESS 
< PRESS 
< PRESS 



ENTBR> 
ENTER> 
ENTER> 
EN;rBR> 
EFTER> 
ENTER> 
B»TER> 
ENTER> 
ENTER> 
ENTER> 
ENTER> 
ENTER> 
ENTER> 



When all typed in and complete, 
press <ENTER> to activate the 
•ENDCREATE' command. This will 
notify Archive you have finished 
your input to create a DBF 
(which you've just created). 
Please take note, your DBF is 
presently open and will remain 
so until" you 'CLOSE' it. The 
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To view your newly created DBF, 
type 'DISPLAY'. You will see a 
blank record with just the field 
names. Upon closer scrutiny, 
you will notice the field 
ISSUES_DUE does not have a 'S' 
following it. To Archive, the 
•S' represents an open string. 
This means you can mix 
characters and numbers all on 
the same line. Without the 
Archive expects numeric values 
only. 

Let us explian the fields that 
represent your DBF. The TITLES 
field is designed for official 
titles, ie Dr, Mr, Mrs, etc. 
The ISSUES_DUE field represents 
the total number of issues 
(newsletters) due the member. 
The MONTH_DUE$ gives the month 
and year the member needs to 
renew his/her membership. The 
YEARLY_DUESS is used to display 
the amount paid by the member 
for his/her irembership. To 
record the check number, cash 
amount, date received, etc, the 
FAYMENT_I]SrFOS field is used. 
Finally, the USERGROUP* field 
allows information about members 
who live outside the local area 
and just pay dues to receive the 
newsletter. STormally, these 

members officially belong to 
another group, 

I am sure your fingers must be 
getting antsy, so let's 'CLOSE' 
our DBF and begin designing the 
mailing list program (type 
•CLOSE' and press ,<EBrTER>>, 

The following requireittents are 

needed to accomplish our goal: 

Add a new member to the DBF 
Output all records to printer 
Record membership payments 
Modify a members record 
Delete a members record 
Order the DBF 
Exit/Quit the program 
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explaination of each procedure 
module is best described within 
the QL User Guide. Type 'EDIT' 
and press <ENTER> to input 

the listing given. Follow the 
instructions. 

The procedure 'BORder' gives us 
an ASCII border around the main 
menu by using 'CHR(XX)' codes. 
It was mentioned in QL World 
that Archive has this available. 
However, the author stated he 
could not find documents to 
support this except in PSION' s 
PC-FOUR program (IBM's version 
of the QL*© bundled software AND 
it costs almost $100.00, hahJ ) . 
So, he experimented and found 
the coding was duplicated within 
the QL's version of Archive. 
Even though the affect is the 
same, the ASCII characters do 
not corespond to the 'CHR* 
numbers. Plus, the IBM ASCII 
character set is only half given 
for QL- Archive. But this doe.s 
not stop us from (ab) using it. 

The SCR procedure allows a 3-D 
or shadowing effect. The shadow 
will of course display as black. 
The actual paper with the menu 
will be colored red. And the 
background will ©how as green. 
If you do not like the green 
background, change the 'CHR<4)' 
in the first line to •CHR(7)' 
for white (also alter the REM 
statement to reflect the change) 

The WINDOW procedure really is 
sort of a clear screen (or clear 
windpw) . The CHR(12) gives a 
form feed. The command line 
before it makes sure the window 
remains red in color. 

When your program is all typed 
in, do not forget to save it. 
While in the procedure 'EDIT' 
mode, press <ESC>, then enter: 

SAVE "MAILLIST" <PRESS EHTER> 



proc BORder 

print tab 8 ; chr <234 ) ; chr <4) +chr (231 ) +chr (40) ; chr (226) 
print tab 8 ; chr (235 ) ; chr C4 ) +" " +chr (40 ) +chr (235 ) 
print at 2 , 19 ; " T I MEL INEZ MEKBERSHIP" 

print tab 8 ; chr (230 ) ; chr (4 ) +chr (231 > -Hchr (40 ) ; chr (225 ) 
let A=0 
while A<11 

print tab 8 ; chr (235 ) ; chr (4 ) +" " +chr (40 ) ; chr (235 ) 
let A=A+1 
endwhi le 

print tab 8 ; chr (227 ) ; chr (4 ) -Hchr (23 1 ) +chr (40 ) ; chr (233 ) 
endproc 

proc bye 

close » 
print "bye" 

paper 0: mode 8,0: els 

stop endproc 

endproc 

proc change 

rem ***** alter record ***** 

let nS="x" ' 
els 

while nSO"" ' 

getrec 

if ok$="y" ' 
alter 

paper 2: els 
endif 
endwhi le 
endproc 

proc choose 

rem ***** choose an option ***** 

print at 4,i5;"SELECT OPTIOF' 

print at 6,18;"CA3dd a membier" 

print at 7 , 18 ; " C D3 espatch to printer" 

print at 8, 18; "CP] ay on account" ' 

print at 9 , 18 ; " t C] hange a record"' . • 

print at 1 0 , 18 ; " [ V3 ipe a record" 
print at 11 , 18 ; " [ 0] rder a file*' 
print at 12 , 18 ; " t Q] uit program" 

print at 14 , 15 ;" CHOICE? "; ' 
let choiceS=lower (getkey () > 

if choiceS="a" : insert : window: BORder : endif 
if choice$ = "d" ; despatch: window: BORder : endif 

if choice$="p" ; pay: window: BORder : endif 

if choices^" c" : change : window; BORder : endif 

if choices^" w" : wipe: window: BORder : endif 

if choice$="a": order last_name$ ; a : update : window: border: endif 

if choices^" q" ; bye : endif 

endproc 
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proc deepatch 

els 
all 

dolabel 
endal 1 
endproc 

proc dolabel 

rem **>J::<c* print labels ***5K* 
if issues_due 
if issues_due=l 

doline; "REMINDER - Subscription Now Due" 
else 

dol ine ; " " 

end if 

doline;" " +month_dueS 

doline; title$+" *' tf irst _name$+*' " + last_naine$ 
doline; addressS 

doline; cityS+*' , "tstateS+" •*+zip_code$ 

let lssues_due=issues_due-l 

update 

endif 

endproc 

proc doline; xS 
Iprint xS 
endproc 

proc getrec 

rem ttttt locate a particular record 

els 

let ok$="n" 
input "who? " ; n$ 
if nSO"" 
find nS 

while okS<>"y" and found <) 
print 

print titled;" " ; f irst_naine$ ; " " ; last_name$ 

print addressS 

print 

print "OK"(y/n)? "; 

let okS=lower (getkey < > ) 

els 

if okS<>"y" 

continue 

endif 

endwhi le 

if not found <) 

print 

print nS;" not found" 

endif 

endif 

endproc 
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prcx; P^y 

rem tt^^t record subscription payment 
els 

let n$=*'x" 
while n$<>"" 

getrec ' 
if Qk$="y" 

let issues _due= issues_due+6 

update 

endif 

endwhi le 

endproc 

proc SCR 

print chr C2) +chr (4) : REM GREEN PAPER 
print chr(12):REM FORM FEED - CLS 

print chr (20) +chr (12) +chr <4)+chr (69) +chr (21) 
print chr (2) +chr (0) : REM BLACK PAPER 
print chr(12):REM FORM 'FEED 

print chr (20)+chr ( 10 > +chr (3 > tchr (67 ) tchr (20 ) 
print chr (2)+chr (2> : REM RED PAPER 
print chr(12>:REM FORM FEED 

endproc 

proc start 

rem tt:f^tt start procedure 
mode 0,0: els 
ink 7 
SCR 

BORder 

open "mdv2 mail" 
while 1 
error choose 
let n=errnum() 
if n 

print "Mistake - Press any key to continue" 

let mS=getkey() 

endif 

endwhi le 

endproc 

proc window 

print chr (2) tchr (2) 
print chr (12) 
endproc 



Specialists in High Quality Software and Peripherals 
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proc wipe 

rem ***** delete non- paying subscribers ***** 

els 

display 

select issue s__due=0 
all 

spr i nt 

print at 15,0; "Delete <y/n)? 
let ok$=lower Cgetkey <) > 
print ok$ 
if okS="y" 
delete 

print "DELETED*'; tab 15 
else 

print tab 15 
endif 
endal 1 
reset 
endproc 



Put some punch in your 
PRINT FACTORY® graphics!! 



Coilection#1 Collection#2 Collection#3 



Misc«llan«ous Animals D&fltiz«d Misc. 

M«fi/Boys Funny FMMifo Faces 
Womm/OirU Trmnsportatlon Male Fammt 

THghhemd Misc. SportM Funny 

Computers Animtds 

Holidays Zodiac SS^ns 

Food Holidays 

Xmas TrmnaporUkikm 




Ovmr 

mmmmJSmmLEmmSmLmS 



$12.95 ppd each, $19.95 ppd for two, or 
aU three eolations £or $26.95 ppd. 
[Chmok or tnortey ordmr orityn] 
Available on ti^ or 5 1/4 " DSDD LARKEN 
or OLI6ER disk - fdease specify. 

B S«»ior<Wto, (E) 

John McMichael, 1710 Palmer Dr., 
Laramie, WY 82070 



Dear PRINT FACTORY user. 

Three all -new graphic 
collections are now available 
for the Print Factory 
programs : 

COLLECTION #4 ~ Misc., and 
Digitized Misc. 

COLLECTION #5 ~ Men/Boys, 
Women/Girls, Male Faces, 
Fema 1 e Faces , Sport s , 

Holidays. 

COLLECTION #6 - Funny, Xmas, 
Animals, Transportation, 
Computers . 

Available on cassette, or 5 
1/4 DSDD Larken or Oliger 
disk, please specify when. 

ordering. NEW PRICES: 

Collection #1 - #6 are now 
just $7.95 each and this 
includes 1st class postage 
paid. 

ALSO 

FOR SALE: extras — 10 year 
accumulation of excess ZX81, 
TSIOOO, TS1500 and TS2068 
computers, hardware, software, 
books and magazines. For 3 
page list please send SASE to 
John McMichael, 1710 Palmer 
Dr., Laramie, WY 82070. 
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Oh No! Not Another Interest Conputation Progran! 



Once upon a time a few idle hours I did find. Oh me! Oh my! What to do? Well why 
don't I try this copy of IBMCOPY that has been sitting here. Ok, now that I have 
it fired up, what am I going to try it on. Well, since I can't use the bulk of 
the IBM type of software I might try a BASIC program. Out went the word, I need 
a victim! One of my scouts returned with a program to compute loan interests • 
AND a book on the version of BASIC it was written in. 

My first task was to see if I could make it work with the QL. I achieved that 
goal. But, the program did not seem 'to have any flash, verve, it was so plain. 

With out making too many changes to the basic concept of the program I began 
to look at things I could try that would make the program easier to run and . 
nicer to look at. ■ • 

One of the things I learned is that I STILL like SuperBasic. The other 
lesson I discovered is that even in the IBM world, program writers do not always 
use good programming techniques. • 

The program is pretty much straight forward, just follow the prompts, and the 
directions as they appear on the screen. 

I intentionally did not make major changes in the basic structure of the 
program. The primary goal was making the conversion process work. All facets 
of the IBM Basic were translatable in this program. Toolkit did make the 
process easier. 

One of the nicer things I was able to achieve was the appearance of a 
"window" for the directions for the various steps where you enter information 
in response to the prompts. The math did check out to be a little better then 
a PC with out a math co-processor. ' • 



100 REMark your P. C. Mortgage Aid, using ToolKit 2 

110 : 

120 WINDOW 488,240,20,0 : OPEN #4,scr 224x94al22xl30 : MODE 8 
130 CSIZE 3,1 : CLS : AT 2,8 : PRINT "Your Computer" 
140 CSIZE 1,0 
150 AT 9,9 

160 PRINT "Mortgage Aid" 
170 PRINT \ ," "QL Version " 

180 AT 19,1 : PRINT "Press space bar to continue" 

190 IF INKEY$ <> " " : GO TO 190 

200 MODE 4 

210 DIM loan(500,2) 

220 GO SUB 280 

230 IF I$=CHR$(27) : STOP 

240 IF I$="2" : GO TO 930 

250 IF I$="l" : GO TO 500 

260 GO TO 220 

270 GO SUB 460 

280 REMark -MAIN OPTION MENU 

290 CLS : PRINT TO 22;" MORTGAGE ANALYSIS " 

300 AT 3,8 : PRINT "OPTIONS - " 

310 PRINT ,,"1 - Mortgage Payment Comparisons " 

320 PRINT ,,"2 - Mortgage Amortization" 
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330 PRINT ,,"ESC KEY - EXIT" 

340 PRINT \,, "OPTION NUMBER (1,2, OR ESC) =====>"\ 

350 CIS #4 : BORDER #4,2,4 

360 PRINT #4;" MORTGAGE PAYMENT COMPARISONS" 

370 PRINT #4;" - Use This Option To Compare" 

380 PRINT #4;" The Monthly Payments Of" 

390 PRINT #4;" Mortgages At Various Rates" 

400 PRINT #4;" And Principal Amounts." 

410 PRINT #4;" MORTGAGE AMORTIZATION" 

420 PRINT #4;" - Use This Option To Calculate" 

430 PRINT #4;- The Principal And Interest" 

440 PRINT #4;" Paid Over Any 12 Month Period." 

450 AT 8,51 

460 I$=INKEY$ 

470 IF 1$="" : GO TO 460 : ELSE : PRINT 1$; : RETurn 
480 CIS 

490 PF = AF*(RF/(1-(1/{(1+RF)'^NF)))) : RETurn 
500 REMark MORTGAGE COMPARISONS 

510 CIS : PRINT " MORTGAGE PAYMENT COMPARISON PROGRAM " 

520 CLS #4 * BORDER #4 2 4 

530 PRINT #4;" MORTGAGE PAYMENT COMPARISONS" 

540 PRINT #4;" - Use This Option To Compare" 

550 PRINT #4;" The Monthly Payments- Of" 

560 PRINT-#4;" Mortgages At Various Rates" 

570 PRINT #4;:i And Principal Amounts." 

580 PRINT #4 

590 PRINT #4;" NOTE: To Select A Value Or Amount" 

600 PRINT #4;" Enter The Appropriate Value" 

610 PRINT #4;" And Press The ENTER Key." 

620 AT 3,1 : INPUT "ENTER BASE MORTGAGE AMOUNT ===> ";A$ 

630 A = A$ 

640 IF A <= 0 : GO TO 600 

650 AINC = 2000 

660 AT 4,1 : PRINT TO 38 

670 AT 5,1 : PRINT "(1 TO 35 PERCENT)"; 

680 AT 4,1 : INPUT "ENTER BASE INTEREST RATE = «==> ";IR$ 

690 IR = IR$ 

700 IF IR>35 t)R IR<1 : GO TO 660 
710 R = IR/1200 : RINC = 2.5E-3/12 
720 AT 5,1 : PRINT TO 38 

730 AT 5,1 : INPUT "ENTER NUMBER OF YEARS IH MTG' (1 TO 35 YEARS) =>";Y$ 
740 N = Y$ * 12 
750 NF = N 

760 IF NF>420 OR NF<1 : GO TO 720 
770 CLS 

780 PRINT " MONTHLY MORTGAGE PAYMENT COMPARISONS " 
790 AT 3,10 : PRINT Y$;"-YEAR MORTGAGE LOAN AMOUNTS"; 
800 AT 5,6 : PRINT "RATES",,," ";A;".00" 
810 FOR I = 0 TO 14 
820 AT 6+1,0 

830 pu(INT(((R+(I*RINC))*120000)+.5)/100) 

840 RF = R+I*RINC : AF=1 : GO SUB 490 

850 P = INT({(PF*{A))+5.000001E-3)*100)/100 

860 IF P>10000 : AT 22,1 : PRINT "PAYMENTS TOO LARGE TO DISPLAY" : GO TO 900 
870 AT 6+1,29 : pu(P) 
880 END FOR I 
890 PRINT 

900 PRINT ,, "PRESS SPACE BAR TO CONTINUE" 
910 IF INKEY$ <> " " : GO TO 910 
920 GO TO 220 

1 s 



930 REMark - mortgage amortization 
940 CIS : PRINT,,, " MORTGAGE AMORTIZATION PROGRAM " 
950 CLS #4 : BORDER #4,2,4 
960 PRINT #4;" MORTGAGE AMORTIZATION" 
970 PRINT #4;" - Use This Option To Calculate" 
980 PRINT #4;" The Principal And Interest" 
990 PRINT #4;" Paid Over Any 12 Month Period." 
1000 PRINT #4 

1010 PRINT #4;" NOTE: To Select A Value Or Amount" 
1020 PRINT #4;" Enter The Appropriate Value" 
1030 PRINT #4;" And Press The ENTER Key." 
1040 AT 2,0 

1050 INPUT "ENTER MORTGAGE AMOUNT — =======> »;A$ 

1060 AF = A$ 

1070 IF AF <= 0 : GO TO 1050 ■ ' ' 

1080 INPUT "ENTER INTEREST RATE (1 TO 35 PERCENT) =====> •;IR$ 
1090 IR = IR$ 

1100 IF IR<1 OR IR>35 : GO TO 1080 
1110 RF = IR/1200 

1120 INPUT "ENTER NUMBER OF YEARS (1 TO 35 YEARS) == — ^> ";Y$ 
1130 NF = Y$ * 12 

1140 IF NF<1 OR NF>420 : GO TO 1120 
1150 60 SUB 490 

1160 PF = INT((PF+5.000001E-3)*100)/100 

1170 PRINT "MONTHLY PAYMENTS ARE ";PF 
1180 PRINT "CALCULATING AMORTIZATION" 
1190 loan{0,l) - AF 
1200 FOR I « 1 TO NF 

1210 loan(I,2) « INT((loan(I-l,l)*RF+5.000001E-3)*100)/100 
1220 loan(I,l) » loan(I-l,l)-PF+loan(I,2) 
1230 END FOR I 

1240 FOR I « 6 TO 23 : AT 1,0 : PRINT TO 77 • . ' 

1250 AT 7,9 

1260 PRINT "- 1 TO ";NF; " - 0 TO END AMORTIZATION" 

1270 AT 6,1 : INPUT "ENTER BEGINNING PAYMENT NUMBER OF 12 MONTH PERIOD " 

; PERIODS 
1280 PD= PERIODS 
1290 IF PD <> 0 : GO TO 1320 
1300 IF PERIODS <> "0" : GO TO 1270 
1310 GO TO 220 

1320 IF PD<0 OR PD>NF : GO TO 1270 
1330 AT 6,1 : PRINT TO 70 
1340 AT 7,1 : PRINT TO 70 
1350 AT 7,1 

1360 PRINT "PYMNT PRINCIPAL INTEREST BALANCE" 

1370 TINT = 0 

1380 FOR I = PD TO PD+11 

1390 IF I> NF : GO TO 1420 

1400 TINT = TINT + loan{I,2) 

1410 PRINT_USING "### ";I; : pu{PF- loan(I ,2) ) : pu( loan( I ,2) ) : pu(loan(I,l)) 
1420 PRINT : END FOR I 

1430 PRINT \ "INTEREST FOR 12 PERIODS ="; : pu(TINT) : PRINT 
1440 PRINT \,,, "PRESS SPACE BAR TO CONTINUE"; 
1450 AT 0,0 

1460 IF INKEYS <> " " : GO TO 1460 
1470 GO TO 1240 
1480 : 

1490 DEFine PROCedure pu(x) 
1500 PRINT_USING " ######.##" ;x; 
1510 END DEFine 
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BOOTSORX WITHOUT TK2 

The following version of the selective 
menu-loader (BOOTsortCOPY) may be used 
without initializing TK2. It automati- 
cally shows only Basic titles (any 
without _ext) in sorted order. It does 
not have the COPY feature but responds 
more quickly and may be useful as a boot 
routine on disks which have both Basic 
and data files. MDV users should change 
RAM1_ to drive$ and line 240 flp to mdv. 

BOOTsortBAS 

10 MODE 4 

20 FLP USE flp 

30 GO SUB 220: REMark Create DIR file 
40 REMark Display menu 
50 PAPER 0: INK 7: CLS: PAPER #0,7: INK 
#0,0:-CLS #0 

60 OPEN_IN #7,'RAM1_' & 'cat_dat' 

70 INPUT #7,11ne$: CLS: PRINT 'CATALOG-' 

;line$,: INPUT #7,line$: PRINT I1ne$ 

80 CLOSE #7 

90 PRINT m\V Key any CHR to scroll E 
NTER to load'X' N for NEW CATALOG £ for 
SDATE: ';DAV$;' ';DATE$ 
100 LET F=1: x=7: Y=2: C=INT(FI/18) : DIF 
=INT ((FI/18-C)*18+.4): row=1: lop=17 
110 LET Q$='p': IT=2: IF lop>=FI THEN lo 
p=FI: GO TO 130 

120 FOR 1=1 TO C: FOR m=0 TO lop: AT row 
+m,7: PRINT ,,,: AT row+m,8: PRINT f$(IT 
): LET IT=IT+1: NEXT m: GO SUB 160: NEXT 

I: FOR 1=1 TO 19: AT 1,7: PRINT ,,,: NE 
XT I: IF NOT DIF THEN GO TO 110 
130 IF F THEN FOR m=0 TO DIF-2: AT row+m 
,7: PRINT ,,,: AT row+m, 8: PRINT f$(IT): 

LET IT=IT+1: NEXT m: IF lop>=FI THEN F= 

0 

140 IF NOT F THEN IT=FI 
150 GO SUB 160: GO TO 110 
160 FOR L=0 TO m: AT row+L,7: PRINT '>': 
FOR k=1 TO 5: NEXT k: IF Q$<>" THEN FO 
R k=1 TO 100: NEXT k: LET Q$=" 
170 LET A=CODE(INKEY$): IF A=0 THEN LET 
Q$='p': 60 TO 170 

180 IF A=96 THEN CLS #0: INPUT #0;'mo 
mm;* da ';dd;' year ';yy\'hr ';hr;' min 
';m1n: sec=0: SDATE yy,mm,dd,hr,min,sec: 

GO TO 40 

190 IF A=78 THEN GO SUB 220: GO TO 40 
200 IF A=10 THEN GO TO 210: ELSE AT row+ 
L,7: PRINT ' ': NEXT L: RETurn 
210 LET P0S=IT+L-m-1: END IF : dr1ve$=dr 



ive$ & f$(POS): LRUN dr1ve$ 

220 CLS #0: PRINT #0; 'CATALOG drive 

230 drive$=INKEY$: IF drive$<'r THEN GO 

TO 230: ELSE PRINT #0;drive$ 
240 drive$='flp' & drive$ & '_' 
250 DELETE 'RAMI' & '_cat_dat': OPEN_NEW 

#7, 'RAMI ' & 'cat dat' 
260 DIR *t7,drive$: CLOSE #7 
270 REMark Load DIR from RAM 
280 DIM f$(1000,24) 
290 OPEN„IN #6, 'RAMI' & '_cat dat' 
300 FOR n=0 TO 1000 

310 IF E0F(#5) THEN CLOSE #5: LET dirend 

=n: GO TO 350 

320 INPUT #5,f$(n) 

330 clen=LEN(f$(n)): IF clen<4 THEN NEXT 
n: ELSE IF f$(n,clen-3)= '_' THEN GO TO 
310 

340 END FOR n 

350 IF CODE(f$(dirend))=0 THEN LET diren 

d=dirend-1 

360 LET FI=d1rend 

370 REMark Re-order DIR from RAM 

380 PRINT #0;' Please wait for re-orderi 

ng' 

390 LET m=dirend: s=m: cnt=0 

400 LET s=INT(s/2): IF s<1 AND NOT cnt T 

HEN GO TO 480 

410 IF s/2=INT(s/2) THEN LET S=s4-1 
420 FOR n=2 TO m-s 
430 LET cnt=0 
440 LET j=n 

450 IF f$(j)>f$(j+s) THEN LET x$=f$(j):L 
ET f$(j)=f$(j+s): LET f$(j+s)=x$: LET j= 
j-s: LET cnt=cnt+1: IF j>0 THEN GO TO 45 
0 

460 END FOR n 
470 GO TO 400 
480 RETurn 

900 DELETE f lp1_B00TsortBAS: SAVE flp1_.B 
OOTsortBAS 

910 DEFine PROCedure sv: DELETE flp1_B00 
T: SAVE flp1_B00T: END DEFine sv 




15 Kilburn Court , Newport, Rl 02840 USA 
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CABLE COLUMN 

By Bill Cable 

ARCHIVE SERIES 
PART 8 : ORDER and SELECT COMMANDS 

The ORDER Command was introduced in the last issue of 
UPDATE. Now we will complete our discussion of it and 
move on to the SELECT Command. The ability to order 
on the fields of a database and quickly locate needed 
information using that order is the most powerful feature of 
a database system. It repays us for ait the effort It takes 
to organize our information in the record/field format. 
Although we have covered the general principles of order 
we need to give a few more examples and also Illustrate 
the difference between ordering a "looked" database 
versus an "opened" database. Next we will explore the 
SELECT Command which allows us to make temporary 
subgroups of our database by specifying certain criteria 
about the fields. 

Before getting into that let's celebrate the fact that this 
series is marking the end of its second year. During that 
tirfie, UPDATE has provided a reliable soap box for me to 
stand on preaching the virtues of this excellent database 
system. I even hear from time to time that the column is 
being read and used, i have tried to make the series easy 
for beginners to join at any time but soon we will start 
building on what we have covered and begin writing 
ARCHIVE programs. The best kind of programs fpr this 
column to cover are ones that will t>e useful to its readers. 
Please feel free to request programs covering subjects of 
interest to you. For those wanting a complete collection of 
the series, back issues of UPDATE are stilt available and 
here is an issue index : 

UPDATE ISSUE INDEX FOR THE ARCHIVE SERIES 
Jul 90 Part 1 : Database Concepts 14-17 
Oct 90 Part 2 : Archive Data Structure 37-40 ' 
Jan 91 Part 3 : First Commands 23-25 
Apr 91 Part 4 : Create, Open, Insert Commands 25-26 
Jul 91 Part 5 : Alter and Delete Commands 33-34 
Oct 91 Part 6 : Find, Search, Continue Commands 36-37 
Jan 92 Part 7 : Order, Locate, Reset Commands 33-34 
Apr 92 Part 8 : Order and Select Commands 

Altogether it comprises 20 pages of practical ARCHIVE 
tips gained through extensive experience. It should prove 
invaluable to anyone wanting to use ARCHIVE. Maybe 
you don't have time to seriously tackle ARCHIVE right 
now but If you have the Issues the Information will be there 
when you need it. That is why Its important to keep 
supporting UPDATE. IQLR and User Group publications. 
Infomfiatlon gets collected in a nice format so we have It 
when we need It. I would also like to encourage others to 
write more for these publications, t have never read a QL 



{}=device,mdv1_,flp1_, etc 
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display current record 



related article that didn't give me some useful information 
and Insight. Never feel that your experiences are too 
insignificant to share. How hard is it write an article? 
Load QUILL and put down your thoughts. Save it to a disk 
or microdrive. Send It to the intended publication and you 
will have made one editor's day. 

PREPARATION 

In the description below I will "italid what you should 
enter to participate in the examples. We will use the 
OPEN command on the GAZET_DBF database supplied 
with ARCHIVE and permanently change it so make sure 
you use a copy and not your master. Start ARCHIVE 
(DATABASE) and go through the following collection of 
commands as a refresher. <enter> means press the 
ENTER key : 

look ' { } ga ze t <ENTER> 
prin t coun t () <ENTER> 
pri n t recn urn ,• ; <ENTER> 
di spl ay<ENTEF.> 
find -nassaw' <ENTER> find something 
print recnurrii) <ENTER> current record number 
next<ENTER> move forward one 

di spl a y<ENTER> see current record again 

search pop>=^i 00<ENTER> field meeting condition 
con ti n ue <ENTER> next one 

order pop; a<ENTER> Order by population 

locate 200<ENTER> locate on population 

let a^50<ENTER> 

locate a<ENTER> use variable with locate 

ORDER COMMAND (continuMi) 

In Part 7 we covered the basics of the ORDER Command. 
We saw that we can quickly define one order for an 
ARCHIVE database using 1,2,3, or 4 fields.. It Is usually 
not useful to order on more than 1 fields. If we had an 
address database with fiekJs for last name an0 first name 
it is easy to see that it would be handy to have order by 
last name and then first name so we could separate 
people with the same last name but different first names. 
Having only one order available at any given time is a 
handicap. PSION'S PC version of ARCHIVE can keep 4 
sets of order active at the same time and is the one big 
advantage of PC ARCHIVE over QL ARCHIVE. For a 
book catalog database it would be nice to be able to look 
up by title or author at a moments notice. With QL 
ARCHIVE we can have it ordered on one or the other. If 
we want a different order we have to execute the ORDER 
Command and waK for a short time for the new order to be 
completed. Let us order GAZET by continent and 
population and play with that : 
order con tine/? t$/ a.^popj d<ENTER> 
1 Of a te ''EUROPE 1 000<ENTER> most pppulous first 
next<ENTER> population decreases 

<F5><ENTER>-' 

1 oca te "ASIA V 1 00<ENTER> first ASIA under 1 00 
locate ''E"<ENTER> first EUROPE 
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locate "EUROPE ''<ENTER> just beyond EUROPE 
These are tricky because there are two fleids in the order 
and the second field, pop, is ordered in descending order. 
Try the same order command only replace the "d" after 
pop by an "a" and try the same commands. Leaving out 
the 2nd field in locate defaults to 0 or null. 

One property of an ARCHIVE database is that whatever 
order existed under the last OPEN access wlH be the one 
that is in effect the next time the database is "looked" or 
"opened". If you only ordered the database when It was 
accessed by "look" then no order Is in effect when it is first 
accessed. Try the following : 

close<ENTER> close GAZET_DBF 

open { }gazet"<ENTER> device (mdv1_,flp1_,etc) 

order country$/a<ENTER> make a permanent order 

c2ose<ENTER> 

look ''{jgazet''<ENTER> 

locate "D"<ENTER> locates by country 

order capital $;a<ENTER> make new order 

locate "D"<ENTER> now locates by Capital 

close<ENTER> 

look ''{}gazet''<ENTER> 

locate "D" <ENTER> order by country Still on 
reset<ENTER> remove ail order 

locate "D" error 8 since no order 

c§ose<ENTER>- 

What I find useful for each database is to define the 
primary (permanet) order (most commonly needed order) 
with the database accessed with OPEN. Then I define 
other orders and select or reset only while looking at the 
database so I never remove the primary order. To get my 
primary order I only need dose and look or open again 
(usually faster than reordering a targe database). Any 
order in effect is maintained while adding, altering, or 
deleting records. Only the RESET or ORDER commands 
wiii alter the current order. Remember that there is no 
way to tell what the current order is. You must keep track 
of that yourself. 

SELECT COMMAND (FILTERING) 

The SELECT command allows one to select a subgroup 
from the currently selected records. It has the fomn : 
select (field conditioni) and/or (field condltion2) ....etc. 
Each field condition evaluates to a numeric expression 
usually a logical statement (0 is iaise, nonzero true). 
When a database is first accessed all records are 
selected. Each time a select command is executed some 
records can be filtered out depending on the select 
condition. Any order in effect when a selection is made 
remains in place after the selection. If a reset is done to 
make all records active again then all order is lost. If the 
database is being "looked" at then any permanent order 
made when It was "opened" will still remain v^en It Is re- 
accessed again. 

1 ook *V y gaze t '''<ENTER> {}=device mdv1_,fip1_, etc 



print count {)<ENTER> all records active 
display<ENTER> display current record 

locate "D''<ENTER> country order active 
select pop>20<ENTER> countries with population >20 
print count ()<ENTER> see how many now active 
displ ay<ENTER> 

locate "D"<ENTER> no "D" SO "EGYPT" 

select con tinen "ASIA ''<ENTER> 

print count (}<EliTER> 

di spl a y<>ENTER> 

next<ENTER> 

<F5><ENTER> 

(repeat until end is reached) 
We ended up with all Asian countries with a population of 
greater than 20 million still ordered by country. We couW 
have done the selection in one statement : 

rese t ^prin t coun t {J <ENTER> 

select pop>20 and con tinen t AS IA"<ENTER> 

print count ()<ENTER> 

di spl ay<ENTER> 

We could use an or statement to get quite another 
subgroup 

reset<ENTER> 

select pop>20 or continent$-^''ASIA"<ENTER> 
print count ()<ENTER> 

Now we have all countries with a population greater than 
20 million or in Asia. Using the INSTR() function allows for 
Interesting options (see pg 51 ARCHIVE manual). 

reset<ENTER> 

sel ec t ins tr (1 angua ges$, "ENGLISH <ENTER> 

print count {)<ENTER> 

displ ay<>ENTER> 
Now we have selected all countries which have English as 
a major language. A quick way to see all selected records 
uses the ALL statement which will be described later : 

all ; sprin t / endall<ENTER> 
You noticed that "ENGLISH" appeared somewhere in the 
Languages$ field. The INSTR() function altows us to make 
use of that even though other words may also appear in 
the field. We could see the same records although not 
select them using the SEARCH Command which uses 
syntax similar to the SELECT Command : 

reset<ENTER> 

search instr (languages$^ ''ENGLISH") <ENTER> 
whi 1 e found () ^ sprin t ; con tinue ; endwhi 1 e<ENTER>- 

The WHILE Command will be covered later but is 
illustrated to show ARCHIVE has many tools available. 

The SELECT Command is a powerful tool that allows the 
user to temporarily work with a subgroup of the database 
meeting specified conditions. Using the EXPORT 
Command (described later) the subgroup can even be 
exported to be its ovm database if desired. 

Next time we look at the UPDATE Command and WHILE 
Command and write some single line programs. Until then 
Happy Archiving! 
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USINO QUILL FOR ASCII FILES 
Bob Hartung, 2416 N. County Line Road, Huntertown, IN 46748 



One of the features of QUILL (WP) that 
somehow got lost in the translation of 
the V. 12/84 QLUG is that ASCII files may 
be saved and loaded using the PRINT and 
IMPORT modes, respectively. By using 
XOVER or a similar program, files may be 
translated to DOS in this format, which a 
DOS line-editor and most wordprocessors 
will accept. 

This facility may also be used to 
create DO files and source code for com- 
pilers, as well as a means of providing 
full-screen editing for those who do not 
have the TOOLKIT ED capability. 

Since the process re-directs to 
storage media the output that ordinarily 
would go to the printer, the printer_dat 
which is used must first be amended for 
this purpose. An easy way of doing this 
is to CLONE QUILL and its data files to a 
new disk or mdv cartridge. The _HOB file 
may then be deleted to make more room if 
desired. 

Enter LRUN f lp1__INSTAI.L _BAS (or mdv1„) 
and key ENTER to accept the SER1 and 
flp1-_ or mdv1_ prompts. At the menu move 
the cursor to OTHER and key F2 for EDIT. 
Rename OTHER to PROGRAM (key the right- 
cursor to go to entry mode), set LINEFEED 
to LF only, and toggle CONTINUOUS FORMS 
to YES. When done, key F5 to install 
this driver. Key ESC or RESET to return 
to Basic. 

If you want to access the printer_dat 
file from RAMI instead of drive one each 
time PRINT is called, it will be neces- 
sary to run the CONFIG_BAS program and 
reset the location of SYSTEM files to 
RAM1_ so the program will look there for 
the printer data. (Refer to CONVERT_BAS 
to reconfigure v. 2.35.) After d(j>ing 
this, load the BOOT routine and insert 
this command in a line preceding the EXEC 
call; COPY f lp1_printer_dat TO RAM1_ 

printer_dat (or use COPY mdv1__ ) Use 

this copy of BOOT, QUILL, and data when- 
ever you load in or save ASCII files. 

To simplify creating new files, set up 
a dummy file on this disk or mdv with 
LEFT margin, INDENT, UPPER and BOTTOM 
margins, PAGE size, and line GAP all set 
to zero, and RIGHT margin set to 80. 
Source code files require this, and files 
in a DOS wordprocessor may then be re- 



formatted more easily. Page headers and 
footers will ^ilso be output with ASCII 
tej^t files unless turned off or the page 
size is pre-set to zero. 
, Load this dummy file whenever creating 
a QUILL file that will be output as ASCII 
data. Keep in mind that F4 and' other 
command-codes will be stripped from the 
text data when.it is saved as ASCII code. 
Some imbedded TRANSLATE characters may 
remain but will not be recognized by a 
DOS wordprocessor, and of course should 
not be used in Basic, or DO, or source 
code files. Set JUSTIFY to left margin 
and do not use wrap-around lines in 
source code files, Basic or DO listings. 

Having done all this, to save a file 
in ASCII from this QUILL format simply 
key F3. P for PRINT, ENTER for current 
file, ENTER for whole file, and when the 
"to printer" prompt appears, enter the 
filename of eight characters or less. 
Note that _lis is appended to files saved 
in this manner, which you probably would 
want to omit for DO and Basic files by 
renaming them after they have been saved, 
(A RESET must be done before calling a DO 
routine if QUILL or another EXEC program 
has been used previously.) 

To IMPORT (load in) an ASCII file or 
Basic or DO listing it must also have or 
be renamed to a filename with the _lis 
suffix. Key F3 twice for COMMAND II then 
F for Files and I for Import. Enter the 
filename, including _.lis, then at the 
prompt for type of input, select Line. 

To use the XOVER program supplied with 
PC Conqueror, first use RESET', then 
execute the program with EXEC flp1_.X0VER. 
Place a pre-f ormatted DOS disk in drive 1 
and your QDOS ASCII file disk in drive 2. 
Key CTRL C to activate XOVER and follow 
the menu prompts for "Export files (QDOS 
-> DOS)". Since it is accepted practice 
to give DOS text files the suffix^ ,TXT 
you may want to use the DOS REN command 
to rename files for easier recognition. 

I did not have a PC or clone to test 
these ASCll files in a DOS wordprocessor 
' like Word, WordPerfect, or WordStar but 
they worked fine for me under PC Con- 
queror, using Spinnaker EZ-Writer with 
spellcheck and the Disk-Count EDIT line- 
editor, as well as the DOS EDLIN routine. 
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250 IF A=96 THEN CLS #0: INPUT #0; 'mo 
rwn;' da ';dd;' year ';yy\'hr ';hr;' min 
';min: sec=0: SDATE yy,mm,dd,hr,min,sec: 
GO TO 40 

260 IF A=78 THEN GO SUB 290: GO TO 40 
270 IF A=10 THEN GO TO 280: ELSE AT row+ 
L,7: PRINT ' ': NEXT L: RETurn 
280 LET P0S=IT+L-m-1: END IF : dr1ve$=dr 
ive$ & ct$(POS): LRUN drive$ 
290 CLS #0: IF cpy$='"C" THEN PRINT #0;' 
COPY from catalog in drive #';: ELSE PRI 
NT #0; 'CATALOG drive 
300 drive$=INKEY$: IF driveK'1' THEN GO 
TO 300: ELSE PRINT #0;drive$ 
310 INPUT #0\* <ENTER> for PROGS only, o 
r leading chrs. in title(s) or extension 
'\' EG: <CHRS> <_doc> <_dbf> <_lis> <_.da 
t> for wildcard DIR ';suff$ 
320 drive$='flp' & drive$ & *_': wdr$=dr 
ive$ & & suff$ 

330 OPEN_OVER #7/RAM1_' & 'cat_dat' 

340 WDIR #7,wdr$: CLOSE #7 

350 OPEN_OVER #7/RAM1_' & 'cat_nm' 

360 DIR #7, drivel: CLOSE #7 

370 OPEN_rN #7,RAM1_cat_nm: INPUT #7,cnfn 

$: CLOSE #7 - 

380 IF cpy$="C" THEN GO TO 400: ELSE PRI 

NT #0\\" RE-ORDER y/n? " 

390 yn$=INKEY$:IF yn$<M' THEN GO TO 390 

400 IF cpy$="C" THEN yn$="y" 

410 REMark Load DIR from RAM 

420 DIM f$(1000,24) 

430 OPEN_IN #6,RAM1_cat_dat 

440 FOR n=0 TO 1000 

450 IF E0F(*»5) THEN CLOSE #5: LET dirend 

=n: GO TO 490 

460 INPUT #5,f$(n) 

470 clen=LEN(f$(n)): IF clen<4 THEN NEXT 
n: ELSE IF suff$="" AND f$(n,clen-3)='_ 
' THEN GO TO 460 
480 END FOR n . 

490 IF-CODE(f$(dirend))=0 THEN LET diren 
d=dirend-1 

500 IF yn$=='y' THEN GO TO 510: ELSE GO 
TO 620 

510 REMark Re-order DIR from RAM 

520 PRINT #0;' Please wait for re-orderi 

ng' 

530 LET m=dirend: s=m: cnt=0 

540 LET s=INT(s/2): IF s<1 AND NOT cnt T 

HEN GO TO 620 

550 IF s/2=INT(s/2) THEN LET s=s+1 
560 FOR n=0 TO m-s 

570 LET cnt=0 
580 LET j=n 

590 IF f$(3)>f$(0+s) THEN LET x$=f$(j):L 
ET f$(j)=f$(j+s): LET f$(j+s)=x$: LET j= 



j-s: LET cnt=cnt+1: IF j>0 THEN GO TO 59 
0 

600 END FOR n 
610 GO TO 540 

620 REMark Re-save DIR to RAMI 

630 IF cpy$="'C" THEN GO SUB 720 

640 OPEN_.OVER #5, RAMI cat_dat 

650 PRINT #6,cnm$: PRINT #5," " 

660 FOR n=0 TO dirend 

670 IF CODE(f$(n,1))=0 THEN GO TO 690 

680 PRINT It5,f$(n) 

690 END FOR n 

700 CLOSE #5 

710 RETurn 

720 REMark COPY source drive 1_. TO dest 
drive 2_ 
730 CLS 

740 AT 10,0: PRINT 'Place SOURCE media i 
n drive 1 & DEST media in drive 2'\'Key 
F to format drive 2 media'\'Press any ot 
her key to start copying' 
750 fdt$=INKEY$: IF CODE(fdt$)=0 THEN GO 
TO 750 

760 IF fdt$=="F" THEN CLS: CLS #0: INPUT 
#0\\' ALL DATA WILL BE LOST ON DRIVE 2 

~ Key ENTER to abort FORMAT '\' or enter 
DRIVE 2 format title: ';fdt$: IF fdt$=" 

" THEN GO TO 740: ELSE PRINT #0; 'Please 

wait — FORMATTING ';fdt$: FORMAT "flp2 

" & fdt$: CLS #0: GO TO 740 

770 FOR n=0 TO dirend 

780 IF CODE(f$(n,1))=0 THEN GO TO 800 

790 COPY flp1_ & f$(n) TO flp2 & f$(n) 

800 END FOR n 

810 RETurn 

900 SAVE flp1_B00TsortC0PY 
910 DEFine PROCedure sv: SAVE flp1„B00T: 
END DEFine sv 

A COMPOSITE BOOSTER 
— Bob Hartung — 
"If the composite output signal from 
your QL or 2068 does not seem to be at 
the proper level to provide a steady dis- 
play on your monitor, you might want to 
consider inserting the video output of a 
VCR dubbing enhancer between the computer 
composite video output jack and the moni- 
tor composite input jack. I have had good 
results with the RECOTON ($29 + S&H from 
DAMARK or C.O.M.B.) but any with an ad- 
justable video gain control, such as the 
one sold by Radio Shack, should do as 
well. Please note that because of the 
many possible variables in usage and 
equipment I cannot accept responsibility 
for any damages or undesirable results. 



For the best prices on QL related items in North America and an 
honest attempt to fill your ordter contact Frank Davis at 
MECHANICAL AFFINITY, 513 East Main, Peru, IN 46970, or Paul, 
Holmgren at MECHANICAL AFFINITY, 5231 Wilton Wood Ct, 
Indianapolis, IN 46254. Examples of prices and items to be found 
therei All prices quoted are in US dollars. 

GOLD CARDS, disk interface, 2 meg of memory and your QL 
running at 16 mHz, 3 disk drives can be used, and uses 
the 1.44 meg, 3.2 meg drives as well as the 360K and 720K 
drives, and for only $500 + $10 for insurance. 

TRUMP CARDS, disk interface, 896K total memory and Tool Kit 
2, print spooler, screen dump, and for only $225 total 
cost which includes shipping. 

Replacement keyboard membranes for only $15. Replace that 
faulty membrane and put your QL to use. 

Backup QL power supplies for only $15. Original equipment 
power supplies, the last of their kind. 

Backup QL for only $80 + $5 for shipping. U.S. QL with JSU 
ROM, power supply, TV cable. 

Miracle disk drive adaptor to allow your Trump or Gold Card 
to access 4 disk drives for only $40. Requires 1.28 or 
higher ROM chip on your Trump Card to use. Let us know if 
you need to replace the Trump eprom (available for $12). 

Internal battery backed clock for QL, uses lithium battery, so 
should be good for far longer than ordinary batteries. This 
plugs in where the 8032 goes, and the 8032 is then 
installed in it. $20 for brd & battery, or $26 installed. 

NEW FOR THE Z88! 

Soft carrying case for the Z88. Protect your notebook sized 
computer from accidents and the elements. This case is also 
handy for those with the Laser PC3, Compumate 3 or PC4. $10 

TSIOOO 1 

Tom Bent's improved 8K TSIOOO ROM on eprom. $10.00 Requires at 
least 16K RAM expansion to opjBrate, but bug corrected. $12 if we 
supply the special socket. 

FLOPPY DISKS 1 

5 1/4 floppies DSDD — $18 for 100 (360K or 720K) 
5 1/4 floppies DSHD $20 for 100 (1.2 meg) 
These prices include shipping. 

TS2068! 

TS20688 with cables and manual fo± only $50 postpaid. 

TS2040 printers with 3 rolls of thermal paper for $30 postpaid. 

TS2050 modems for TS2068 or TSIOOO for only $35 postpaid. 

We accept personal checks, money orders, company checks and 
cash. No charge cards please at this time. We hope to be of 
service to you. For a complete catalog, send a large self 
addressed envelope to either of the above locations. 



A SELECTIVE MENU— LOADER 
Bob Hartung, 2416 N. County Line Rd. E. . Huntertown, IN 46748 



On QL utility disks which contain 
both Basic and data files, this program 
provides for the display of only the type 
of titles selected for an auto-loading 
menu, in sorted or unsorted order. By 
changing line 310 to LET suff$="" and 
line 390 to LET yn$="y" it may be used as 
a BOOT routine that brings up only file 
titles for Basic programs or DO files. 
Selected types of files may be copied in 
sorted order from drive 1 to drive 2. 
Because it utilizes the WDIR command, 
TOOLKIT II is required. 

The program assumes that a convention 
is followed in using a three-character 
extension following an underscore for all 
data file titles, eg: __doc _dbf _lis ._txt 
etc. Basic or DO titles either have no 
such extension or else more or less than 
three characters follow any underscore in 
them. 

The prograim may be used on any drive, 
as selected when it comes up. Next, an 
entry is prompted for the wild card set 
of characters to be used by the WDIR com- 
mand. If ENTER only is keyed, only the 
files will be shown that have no three- 
character extension in their titles. If 
an underscore does not precede characters 
used in a wild card set then a directory 
will be shown of all titles having that 
set as the beginning of the title or as 
the beginning of an extension. 

It may be noted that a DIR file (cat_ 
nm) is stored in RAMI as well as a WDIR 
file (cat_dat). The reason for this is 
that WDIR does not provide disk format 
and title information when used in this 
manner, so the title is extracted from 
this DIR file and the rest is discarded. 

A NOTE RE: DIRDATCOPY 

Because of a quirk in the way the QL 
handles the field-lengths of previously- 
used array elements, the sorting and COPY 
routines may give uncertain results. To 
correct this, change line 750 of the DIR- 
datCOPY routine to correspond with line 
590 of this listing, and line 930 should 
be revised to correspond with line 790 in 
this listing. Sorry about that! 

Also, in case you missed it in Frank's 
comments in the 1/92 UPDATE, line 120 of 
the printed DIRdatCOPY listing should be 



... GOTO 210 instead of . . . GOTO 220. All 
these corrections and BOOTsortCOPY will 
be included in my QL ISSUE disk if pur- 
chased after 3/1/92. 

BOOTsortCOPY 

1 TK2_EXT: REMark May be omitted if TK2 
activated previously 
10 MODE 4 

20 FLP_USE flp: REMark Or FLP USE mdv 

30 cpy$="": GO SUB 290 

40 PAPER 0: INK 7: CLS: PAPER #0,7: INK 

#0,0: CLS #0 

50 DIM ct$(1000,24) 

60 OPEN_IN #7,*RAM1_' S 'cat dat' 

70 INPUT #7,line$: CLS: PRINT 'CATALOG-' 

;1ine$ 

80 FOR X = 0 TO 1000 

90 IF E0F(#7): LET FI=x: GO TO 130 

100 INPUT #7,ct$(x) 

110 cl6n=L"EN(ct$(x)): IF clen<4 THEN 

NEXT x: ELSE IF gliff$="" AND ct$(x,clen- 

3)='_' THEN GO TO 90 

120 END FOR X 

130 CLOSE #7 

140 IF CODE(ct$(1))=0 THEN PRINT "NO ";s 
uff$;" FILES FOUND".: GO TO 20 
150 PRINT #0\\' Key any CHR to scroll 
ENTER to load C to copy sorted files'X 
' N for NEW CATALOG f for SDATE: ';DAy 
';DATE$ 

160 LET F=1: x=7: Y=2: C=INT(FI/18) : DIF 
=INT ((FI/18-C)*18+.4): row=1: lop=17 
170 LET Q$='p': IT=1: IF 1op>=FI THEN To 
p=FI: GO TO 190 

180 FOR 1=1 TO C: FOR m=0 TO lop: AT row 
+m,7: PRINT ,,,: AT row+m,8: PRINT ct$(I 
T): LET IT=IT+1: NEXT m: GO SUB 220: NEX 
T I: FOR 1=1 TO 19: AT 1,7: PRINT ,,,: N 
EXT I: IF NOT DIF THEN GO TO 170 
190 IF F THEN FOR m=0 TO DIF-2: AT row+m 
,7: PRINT ,,,: AT row+m, 8: PRINT ct$(IT) 
: LET IT=IT+1: NEXT m: IF lop>=FI THEN F 
=0 

200 IF NOT F THEN IT=FI 
210 GO SUB 220: GO TO 170 
220 FOR L=0 TO m: AT row+L,7: PRINT '>': 
FOR k=1 TO 5: NEXT k: IF Q$<>" THEN FO 
R k=1 TO 100: NEXT k: LET Q$=" 
230 LET A=CODE(INKEY$): IF A=0 THEN LET 
Q$='p': GO TO 230 

240 LET cpy$="": IF A=67 THEN cpy$="C*': 
GO SUB 290: GO TO 40 



THE DAYTON MICROCOMPUTpRT^^OCIATION, INC., PRESENTS 

f OMPCpRFEST 

\y Sat. ^'^9-^^.<^^2 



HARA CONFERENCE AND EXHIBITION CENTER, 1001 SHILOH SPRINGS RD. DAYTON, OHIO 



VENDOR INFORMATION 

Register now for your booth(s) at the 17th annual Computerfest, August 29 and 30, at Hara Arena and Conference Center, Dayton, 
Ohio. Computerfest is the largest and longest running computer show in the midwest. The past few years have seen tremendous 
growth in both vmdois and attendees. Computerfest '91 drew over 15,000 people, double that of 1989. Early registration will 
help secure the space you want 

The sales area at Computerfest '92 is divided into two parts - the professional area and the flea market area. 
PROFESSIONAL BOOTHS FLEA MARKET SPACE 



$200.00 until June 30, 1992 
$250.00 July 1, 1992 and thereafter 



$25.00 until June 30, 1992 
$30.00 July 1, 1992 and thereafter 



Flea Market spaces are 6' x 8', with one table and one chair. 
Admission is extra, $5.00 per person (good for both days). 
Friday night set up is available for $25.00 per vendor. 



Professional Booths are 10* x 10', with two draped tables, 
2 chairs, and backdrop. Admission is included. 
Friday night set up is available at no additional charge. 
All Professional Booths and flea market spaces have electricity (120 VAC) provided at no extra charge. 
Normal set-up is 6 AM to 10 AM on Saturday Friday night set-up from 6 PM to 10 PM is available 

To reserve your space(s) at Computerfest '92, complete the Vendor Registration form below and return with your checl^ in the 
correct amount for the space(s) and services you require, and mail to Mark Hanslip, Vendor Relations. 







MARK HANSLIP 




For mcxe information, contact: 


143 Schloss Lane 
Payton, Ohio 45418 






(513) 263-FEST 



(JOMPUTERFEST^ 1^2 VENDOR REGISTRATION FORM 



Company or Group Name_ 
Street Address _ 



City/State/Zip Code 
Contact Person 

□ 



. Phone (_ 



_)_ 



. professional space(s) @ $200 ($250 after June 30) Amount . 



I would like to reserve . 

I need tickets for the personnel in my professional booth (no charge) Amount . 



□ I need t 

n I would like to reserve flea market space(s) @ $25 ($30 after June 30) Amount . 

Admission is extra, $5.00 per person, good for both days 



□ 



I need 



ion ticket(s) @ $5.00 ea (good for both days) Amount 



n I want to set up on Friday night from 6 PM to 10 PM 

Professional booths no charge Flea market spaces $25 per vendor . ' . ..Amount _ 




TOTAL ENCLOSED . 

I 

Make checks payable to "DMA Computerfest" and mail with this form to: 
Mark Hanslip, 143 Schloss Lane, Dayton, OH 45418 
CompitoffeBt Is a re^ttared irmlemafK Gf The Day^ 



JSJML :S o £ iz Software for the Ql— that really works 

Wood & Wind Computing- 



NEW!! In-stock from Software*' the best 
value WYSIWYG QL word-processor: text»'plus4 
with Qtyp spell checker, Quill-like .interface 
many new features (and unlimited North 
America help.) Improved speed & fonts, etc. 
text"plu54 $139.95 
WYSIWYG wordprocessor & Qtyp spell checker 
fountext**: graphic driver 4 mdvs 49.95 
WYSIWYG output to 9 or 24 pin with 32 fonts 
founted**: screen font editor 1 mdv 29.95 
Make text87 custom fonts 
24"; 24 pin driver 5 mdvs 29.95 

for texts? only 

Order two or more Software*' titles and take 
103^ off the second title, 15^ off the third 
and fourth. 

Boutalf Chris 
QLJBENEALOGIST (2nd ED) 54.95 
Family history with UK royal family demo 
ASK about SECOND EDITION upgrade 23.95 

CAPE Software 
RECIPE ver 2.0 NEW 1 mdv 19.95 

Recipe card file _dbf and demo 
EMSott 

KAILBAG ver 3.1 1 mdv 24.95 

Mail ing 1 ist _dbf with demo 
QLAND_LORD ver 3.1 (R) 1 mdv • 24.95 

Real Estate management _dbf 
TRUSTJUND ver 3.1 1 mdv 24.95 

Stock, Bonds etc dbf with demo 

INVENTORY ver 1.3 " 1 mdv 14.95 

Personal property record keeping _dbf 
EMSoft title upgrade(with original) 4.95 
TAX-l-QL/91 CANCELLED 

MJM Software 
CAM MASTER demo -JSU only; 384K Ram) 9.95 
CAM MASTER site license 2850.00 

Platypus Software 
QLUSTer 1 mdv 12.95 

EXECutable-, multi-tasking files handling 
QLuMSi 1 mdv 19.95 

Pseudo MS-DOS file handling on a QL 
Qfile 

MS-QLINK (R) 1 mdv 24.95 

Read/wr ite/f ormat QL/MS-DOS/Atar i-TOS 

DISCOPY 1 mdv 14.95 

Fast copier between QL/MS-DOS/Atar i-TOS 

MS-QLINK with DISCOPY 2 mdvs 34.95 

Sector Software 

FILES2:Taskmaster Files upgrade 24.95 
Now multi-tasks in ANY environment (R) 
f^illiams, Richard 

TAB>ED1T0R (R) 2 mdvs 34.95 

Friendly Editor with vertical block defini- 
tion & 8 columns in 19" with word wrapping 



CHAOS BUSTERS 29.95 

SuperBASIC to ARCHIVE utilities & DBEasy 
DBEasy: UN or Expanded QL 3 mdvs 21.95 

User friendly front end for ARCHIVE (R) 
DBProgs 1 mdv 19.95 

G useful ARCHIVE utilities 
DBTutor: UN or Expanded QL 3 mdvs 24.95 

Archive "Flash card" to teach yourself 
HELPER 1 mdv 9.95 

SuperBASIC filehandling utility 

DILWYN JONES COMPUTING 
FILEMASTER (R) 1 mdv 23.95 

File handling utility 

THE GOPHER (R) 1 mdv 23.95 

File finding utility 
QL BASIC REPORTER 1 mdv 19.95 

SB Programming aid 
QUICK POSTER (R) 2 mdvs 19.95 

Easy to use poster/bumper sticker prog 
SUPER DISK INDEX (R) 1 mdv 23.95 

The easy file cabinet for all your files 



BOOKS Sc MA-GAZIlSrES 
Syntax magazine set & Foyt book 29.95 

All '48 monthlies, 3 quarterlies & book 
Syncware Mews 19.95 

All 30 issues (5 vols - 6/vol) 
Quantum Levels 19.95 

All 12 issues (2 vols - 6/vol) 
SPECIAL THRU 05/29/92 postmark 

Any 2 sets take off $10.00; all 3 for 49.95 
The Secret Guide to Computers 15.00 

Delightful, entertaining and informative 

T/S BUS Connector/Extender (3 pack) - 13.95 
T/S BUS Connector/Extender 3* (3 pack) 26.95 

All prices are postpaid in N.A. 

(but subject to change witfiout notice.) 

Choice of disk size/format: specify number of 

sectors. Add $4.00 per mdv 
(See number of mdvs required next to price) 
Send #10 SASE for review (R), if available. 

FREE CATALOGUE 

JSMSof iz 

P.O. Box 8763 
BOSTON MA 02114-0037 
(1-617) 889-0830 
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NESQLUO I>EM03SrSTRATES NEW QL EXTENDS 1 03SI 



NESQLUG (New England Sinclair QL User Group) demonstrated at their April 
meeting a new extension called PROD developed in collaboration with 
Computation Genetics Corp. of Chelsea, Massachusetts. The new program 
utilizes a breakthrough Bio-Genetic The r mo-Plastic (BGTP) developed by CGC. 

The material has electrical conductivity properties which can be channelled to 
the serial port (comms port) of a computer. The PROD extension interprets 
signals from a sensor pad (PROD PAD) made from BGTP. In conjunction with 
the extension this permits heuristic interpretation of the user's needs when 
operating other computer software. 

CGC executive, Dr. R. Ida bin Phulen, and his assistant, Candice B. Reel, 
demonstrated the prototype. The user operated a number of unfamiliar 
software titles without reference to manuals by placing a hand on the pad, 
exercising great concentration and applying Body English. Remarkably, in 85^ 
of attempts the user's desired effects were input to the QL. More 
surprisingly, the demonstrator, although told that the program's function was 
word-processing, formatted three paragraphs of justified word-wrapped text in 
ABACUS as quickly as if it had been done in QUILL. 

PROD is an extension that presently takes 10 parameters including the user's 
Sweat Salinity Factor, Body Language Profile Index, handedness (Left or 
Right), personality type (A or B) and latitude and longitude of place of birth. 

Dr. Phulen, who heads the CGC product development team, is a reknowned 
computer high-achiever, informally acknowledged to be descended from 
Victorian poet and all-round genius, Lord Byron, on his father's side and from 
the explorer, Richard Burton, on his mother's. 

''Initially, we selected the Sinclair QL because it was cheapy*^ admitted Dr. bin 
Phulen. ''Subsequently, in attempting to transfer the concept to other 
coMputers, we find that these results are only possible on an unexpanded QL 
with _a JSU ROM. Our software team suspects that PROD utilizes extraneous 
code relating to the unfinished WHEN ERRor function on that ROM. Ruaiors 
that only a British computer can respond to Body English are preMture** 

PROD will be released to the public domain as soon as the team are sure that 
the computer will not retaliate if it is input at too high an EOR (emotional 
overload rate). "We see this development as a major breakthrough in Artificial 
Intelligence. Our sole interest is the commercial application of the sensor 
pad,** explained Dr. bin Phulen. **Whether or not Graphic User Interfaces and 
mice will be made obsolete remains to be seen.** 

It is expected that when commercial release commences in July, 1993, the 
sensor pad will retail for about $400.00. A scurrilous rumor that a discount 
drug store bandage works just as well was traced to a Silicon Valley firm. 
CGC attorneys are reviewing legal options. PROD and its source code will be 
freely available through NESQLUG, at P.O. Box 8763, Boston MA 02114. 

Computation Genetics received commercial and military grants of $75 million 
grant to develop Bio-Genetic Thermo-Plastic applications on April 1, 1992. 
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NOTES FROM EUSOFT 

in the last issue of update, we summar- 
ized the Dilwyn Jones titles that we 
stocked. As a result of an onset of the 
flu, the description of SUPER DISK l»©EX 
ommitted an essential feature: the 
directory of files in the index is 
autoiaatically read in by the software 
from the disk's directory. That is, 
once SDI is running, it automatically 
adds all the file names on a disk 
inserted in the designated drive. 

We take off our CATS hat in admiration 
to all who have ordered this program to 
date under the mistaken assumption 
that each file name had to be key- 
punched individually! 

TAX-l-^iL/Ql has been cancelled. As of 
mid-February only eight orders had 
been received. Customers checks were 
returned. We don't know if the reason 
is that the program is not useful, if no 
one who owns a QL needs Form 1040, or 
if we did not advertise the program 
enough. In any case, we couldn't 
justify the time and cost of even 
writing eight manuals. 

If there is interest for a TAX-I-QL/92, 
please let us know at the EMSoft 
address in the ad elsewhere in this 
issue* 

HOWEVER, the good news is that we 
now have textST plusi. Yes, it's expen- 
sive, but cheaper than DP's PERFEC- 
TION. The cursor is faster, overwrite 
mode is supported, and Function keys 
behave like Quill's, for easy transition. 
But it's the bells and whistles that set 
it apart. On-line help instead of a fat 
manual, multiple documents in memory, 
moveable windows for prompts and help, 
document previewing before printing. 
Great for the person who takes the 
appearance of documents seriously. 

QL GENEALOGIST has a second edition, 
keeping it ahead of every other family 
tree program for any computer. A neat 
feature is the ability to export to 
ABACUS utilizing spreadsheet cells as a 
surrogate family tree. 



LIGHTHOUSE, QL GRAPHICS 

by Taylor Penrose 

"Enclosed please find my 
first of many contributions to 
the QL community. This screen 
and dump was created for a CGP 
220 color ink jet printer 
produced by Radio Shack, so I 
can not say if it will work on 
any other color printer to do a 
screen dump, I am still working 
on an eight color and may end 
up using Pixel 6 in a loop. For 
those with different printers 
it will at least provide a 
starting point . " 

(Editors Notes) I think this 
short type in program is a 
marvelous way to get some of 
our readers started or helped 
in using their QL to produce 
screens or graphics without the 
aid of an art program. Study 
the listing and look for tl>e 
REM lines, as these will tell 
you what is being created on 
the program lines upto the next 
REM line. You can later take 
each of these segments and use 
them by their self to see what 
effect they create on their 
own. Then try changing the 
parameters given and see the 
result. Ahllll, this is not 
"heavy" programming, just fun. 
. For those who have enjoyed 
this little exercise and want 
to further explore graphics and 
screen dumps on the QL, we have 
two things that come to mind. 
One, we hope to see more from 
Taylor Penrose on this and 
related subjects in the near 
future. Second is to study the 
manual that came with the QL. 
While what we find in there is 
sparse, many of us have learned 
just enough about our machines 
that if we were to now get out 
that old manual that we got 
lost on when we first got our 
QL, we would see that it makes 
more sense to us now. Not 
perfect, mind you, just more 
sense than it first did. Have 
fun with your computing, like 
most subjects we encounter in 
life it should be kept light, 
so that it is just one more of 
lifes enjoyments. 



100 MXHDOW 512.202.0.0 PHPER 7 OVER I ' CL3 'CSI2E 0 .0 ■ SCRLE 100.6.. S 
110 ilHOOW #6.512,54,0,282 ^ PftPER #0,4.7 = IKK #0.0 = CLS #0 
Zm REMatrk Ocean 
210 INK 4.7 ■FILL i 

226 LINE ©.0 TO 0.36 ^ 190.6 TO 190.- 38 
30@ REH4,rk DarkRed sky == = 

318 INK 2.0.2 LINE 8.70 TO 0.88 ; ISQ. 70 TO 196,88 
320 LINE 0.65 TO e,63 130.65 TO 190.63 -FILL © 
4BB REHark =« LightRed Sky 
410 INK 2.7 'FILL I 

426 LINE e.50 TO 190.50 ;e.55 TO 0.59 .'190.55 TO 190. 5.9 , 
5m REHark Gre^y Cloud = = 

510 INK 255 « 

520 FILL 1 ^CIRCLE 88. 55. 18. S*E-2. RflD< 90 > ^86.57.3 ^83.57.2 -FILL 0 
6m RJEH^rk GuUs , 

610 INK 0 =RRC 40.40 TO 45.45.~PI.'2 TO 50.50. -PI/S ^89. 35 TO 95. 35. -PI-^2 TO 181.35. PI/2 

?m REMark Sail Board == 

710 FILL 0 =IHK 0 ^CIRCLE 46. 2© . 1 3 . . 25 . RaD< 1 20 > =REHark Board Shadow ' 

720 FILL 1 =IHK 7 =CIRCLE 48. 26. 12. . 25. RfiD< 120> ^FILL 8 'REMark Board 

730 INK 8 FILL IRRC.R 3.2.5 TO -15.15.PI''3 ' REW«rl< Hast I. Sail 

740 INK 3 =LIHE^R TO 2.-15 TO 13.-, 5 'FILL 9 ' INK 4 -.LIHE^R -15.15 TO -S.-a^S 

750 INK 0 FILL 0 -HRC 40.30 TO 30. 22. -PI/4 'REMark Boom 

900 REHark LIGHTHOUSE 

910 INK 7 OVER -1 FILL I CIRCLE 172 . 36. 60. . i PI .^2 

920 INK 6.4 FILL 1 ^ CIRCLE 1 72, 30. 60. . U PI>'2 -OVER 1 -REMJirk IsUnd 

930 INK 2 =F1LL 1 'LINE 165.35 TO 167.90 ; 179.35 TO 177.90 »ftRC 1^3.35 TO 179.3S.PI/3 ' IH 
K 7 =FILL 1 RRC 167.90 TO 177. 90. PI/3 'REMark Tower 

935 INK 0 ^FILL 0 =LIHE 167.5.89 TO 168.95 ^ 176.5.69 TO 176.95 ^BRC 167.5.09 TO 176. 5. 89. PI 
/3 

940 INK 2 FILL 1 'CIRCLE 172. 95. 5. 5.w2. -PI/2 'REHark Top 

950 eiOCK 3.8.470/ 85.0 -BLOCK 6,6.471.06.7 >RENark window 

960 BLOCK 8.8.462.60.0 'BLOCK 6.6.463.61*7 'RENark wiiidow 

970 FILL 0 -OVER 0 'INK 6 = SBYTES MDVl^Li9htHous.e^Scrn. 131072. 3276Q 

900 PRPER #0.0 :INK #0.7 :CLS #8 ^STOP 

990 REHark »««5^o;++ ++•^.1:**t* High Resolution Duwp ^.t.:|::t:*-*'++*+K»»*»-- 

1000 PEf iY>«- PROCtfdure- ScrDuwp 

1018 DIM d«t*<3.64) 

1020 »cr«fer»"131072 

1630 OPEN «3.$.erlhc 

1040 REPeat loop 

1050 FOR cot*r TO 64 

1860 dat*< 2. col )»CHR$<PEEK< screen :»> « REHark Green 

1070 dat*< l.col .>*CHR$<PEEK<i&cr©en+i >) « REMark Red 

1080 d«tf< 3/ col >«CHR*<PEEK< screen >&&PEEK< scre«n+l .>> -REMark Blu^ 

1090 «.creen=s»creen+2 

U00 END FOR col 

U10 PRINT #3.CHR«27.H"C"&,CHR*<64)^ 
U20 FOR n«I TO 3'PRINT »3.dat*<T].l TO); 
U30 IF ^cr€-*n>« 163039 THEN EXIT loop 
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r A 
,„,e„4%£iUt REPORT 

V> ^ Deftnttive Infortnatton Source 

If you had been a subscriber during the last year you would 
have received advanced information on the latest hardware 
developments for the QU including the QL HDD-Card, 
FLP/RAM level 2 Replacement Eprom, the new Miracle 
Systems Graphics Card, Minerva, Exeqtor and the QL 
ROM-Card. Articles contributed by QL Users from around the 
world included. How to Setup the 3.2 Meg. Floppies, 
Programming in "C", P.D. So/tware, Program Listings, A 
Multi-part Toolkit II Tutorial, Tips & Hints, and Reviews of 
Software. In addition, subscribers were offered the opportunity 
to participate in Group Buys of hardware at substantial savings. 
These buys, included Gold Cards, 3.2 Meg. Drives, Keyboard 
Interfaces and 32K Buffer Chips for Panasonic Printers. 

As we enter our second year and continue to grow, we hope 
you'll grow with us. 

The International QL Report is published 4-6 times per year, 
and is available from SeaCoast Services, 15 Kilbum Court, 
Newport, RI 02840. Subscription rates are $14.95 in U.S., $16.95 
in Canada, and $28.00 for the rest of the world (U.S. funds only 
please). 



QL 



Hacker'sJoumal 



Suppoiling Ail QL Programmer's 



QUfllilV CQMPUTER PBODUCTS 



4773 W, Braddock Rd. #3 

TimofliySiyeBsaii,Editor sit^m^i^^iC^ 

(703)m6657 



tswenson8dgis.dtic.dla.inil 



MDM 



ENTERPRISES 



TiMEx a S^^ 
COMPUTER Specialist 



MICHAEL DAVIS 
(517) 791-1088 
706 S MASON 
Saginaw, Ml 48602 



DUANE MALBURG 

(517) 781-1680 
2340 S Graham road 
Saginaw. Ml 48603 



Sales and Inlormation: 
(213/ 759-7406 
P.O. Box #2186 
Inglewood, OA 90305 

T/S • Hardwa 



On Line Support: 
^13-9716260 (CALAN) 
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INSTRUCTION MANUAL PROGRAM CAD#3 
For EPSON 9 pin printers or equivalent 
Using LKDOS Disk Operating System 



Copyright 1989 William J. Pedersen 
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The WIDJUP Co. is proud to present the most powerful, 
flexible, and user friendly printed circuit board design 
program available for the TIKEX TS2068 as of this date. 

It lets ambitious people create their own electronic 
hardware without demanding access to industrial facilities! 
or photo laboratories. 

At the same time, this program does fully professional 
work suitable for small industry. Though CAD#3 is self- 
contained, it is compatible with several specialized 
companion utilities like "TRACE MASTER", which writes 
DATA FILES for CADin using higher level graphic language. 
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Grand Pfapids, MI 49507 
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INTRODUCTION 



This program makes use of LARKEN LKDOS. This version is for EPSON and 
compatible 9-pin printers. Versions are available for OLIVETTI INKJET, 
EPSON compatible printers, and using JLO SAFE DOS. Fine results are 
obtained with the OLIVETTI PR2300, which provides total black-white contrast 
without needing a brand new printer ribbon. CAD#3 makes use of file types 
Program, Data, and Code. Files created using CAD#3 are transferable to 
other DOS systems via tape. The other system must be able to store the same 
type records. 

Though this program assumes double density 2 sided, 5 1/4 disks, other 
formats are readily accomniodated by changing default parameters. ^ 

All operations are menu supported, system initialization is automatic, 
and no LKDOS commands are required once the program is loaded. 

The ability to monitoring your work as it proceeds is provided by a 
DISPLAY feature. This saves much 'time, paper, and aggravation. 

Operations have been made as easy to use as can be, considering the 
complexity of the task at hand. The temptation to unnecessarily standardize 
operations (thus limiting what your ingenuity can accomplish) has been 
resisted. No compromise has been taken with quality of results. Best use < 
of printer performance is made, though this creates a heavy computation load 
for the computer. If you want superior results, you have to do the work! ' 

Exceptional editing procedures let you avoid doing work over and over 
again. Now THAT is user friendly! < 



EXTENDED FEATURES 



CAD#3 provides several features in addition to what is available in 
LKDOS extended BASIC. To be specific, WIDJUP programs LPRINT 05, LLIST 
(Which does formatted and indented LISTings), screen dumps, and several 
graphic windows for LPRINTing-single and double size lines. 

They say that nothing is fool-proof to a sufficiently talented fool. 
Well, CADf/3 has been designed to require considerable talent to foul it up, 
AND to recover even if it has been. Error trapping is used extensively. 

DISPLAY is limited to 4 x 5.4 inches. This does not prevent making 
boards longer than 5.4 inches. It is simply not possible to DISPLAY the 
whole board at once . » , ' 



MENUS' 



The WIDJUP Co. 


(C) 1989..CAD#3 


MAIN 


MENU 


FUNCTION 


DESCRIPTION 


1 LOAD 


PCB Data Array 


2 CREATE 


New PCB 


3 EDIT 


PCB Data Array 


4 DISPLAY 


PCB 


5 DIRECTORY 


Drives 0-4 


6 REPORT 


LPRINT Data 


7 GENERATE 


PCB Image 


8 COPY 


From Image File 


9 SAVE 


PCB Data Array 



Select by U 



This is what you see after CAD#3 is loaded. It reappearb after 
selected operations are completed. 
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CAD. BO Listing 7/14/91 



1 ON ERR GO TO 9885: GO TO Main 

12 LET a=IlirT al: IF a<0 THEN LET a^O 

13 IF a>879 THEN RETURN 

14 LET b=INT (bl-l>; IF a>b THEN RETURN 

15 IF b>879 THEN LET b=879 

16 LET c=INT (a/256>: LET a=a-256*c: LET d=INT <b/256) : LET b= 
b-256*d 

17 LET s=f-8*c: IF c=d THEN PLOT a,s: DRAW b-a, 0: RETURN 

18 PLOT a.s: DRAW 255-a,0: LET s=s-8: GO TO 22+c-d 

19 PLOT 0,s: DRAW 255,0: LET s=s-8 

20 PLOT 0,s: DRAW 255,0: LET s=s-6 

21 PLOT 0,s: DRAW b, 0 

22 RETURN 

44 LET j=2(kk+l,7) 

45 GO SUB 12: IF j <2 THEN RETURN 

46 LET J=J-1: LET Al=Al+y (kk. 8) : LET Bl=BH-y <kk, 8) : GO TO 45 

100 IF y>y(kk,5) THEN GO TO 201 

101 LET al=y<kk,2>: LET bl=y<kk,3): GO TO 44 

120 IF y>y(kk,5) THEN GO TO 201 

121 LET a=(y(kk,5>+y(kk,6>)/2: LET c=y(kk,4>: LET b=y(kk, 13> : L 
ET s=b+y(kk, 12)*(y-a) : LET al=s-c: LET bl=s+c: GO TO 44- 

130 IF y>y(kk,5) THEN GO TO 201 

131 LET d=y(kk,2>: LET J=y(kk,3)i LET c=y(kk,4>: LET a=(y<kk,5> 
fy(kk,6))/2: LET b=y<kk, 13) 

132 LET s=b+y<kk, 12)*(y-a> 

133 LET al=s-c: IF al<d THEN LET al=d 

134 LET bl=s+c: IF bl>j THEN LET bl=J 

135 GO TO 44 

140 LET b=<y(kk, 5>+y(kk, 6> )/2: LET- c=y (kk, 4 > : LET d=y-b: LET s= 
(l-d*d/c/c): IF y>y(kk,5> OR s<z THEN GO TO 201 

141 LET a=y(kk,13): LET s=c*kl*SQR s: LET al=a-s: LET bl=a+s: G 
O TO 44 

150 LET b=(y(kk,5)-fyCkk,6)>/2: LET c=y(kk,4>: LET d=y-b: LET s= 
(l-d*d/c/c): IF y>yCkk,5) OR s<z THEN GO TO 201 

151 LET a=y<kk,13): LET s=c*kl*SQF s: IF s>y<kk, 12) THEN LET s 

=y(kk,12) 

152 LET al=a-s: LET bl=a-fs: GO TO 44 

160 LET b=<y(kk.5>+y(kk,6>)/2: LET c=y(kk,4): LET d=y-b: LET s= 
(l-d*d/c/c): IF y>y<kk,5) OR s<2 THEN GO TO 201 

161 LET s=c*y(kk,3>3t;SQR s 

162 LET a=y<kk, 13): LET al=a-s: LET bl=a+s: GO TO 44 

170 LET c=y(kk.4)4 LET d=y-y (kk, 6)-y <kk, 12) ; LET s=i-d*d/c/c: I 
F y>y(kk,5) OR s<2 THEN GO TO 201 

172 LET s=c*y(kk,3)*SQR s 

173 LET a=yCkk,13): LET al=a-(s AND y<kk,2)>3): LET bl=a+<s AND 
(yckk, 2X5) ) : GO TO 44 

201 LET Del=y<kk, 10) : LET y (kk, 5)=y<kk, 5) -J-Del : LET y(kk,6)=y(kk 
.6)-fDel: LET y(kk, 9)=y (kk, 9)-l : RETURN 

205 GO SUB 225: LET t=INT (<ff/32) AND Uflag): LET y=32)Kt-i: LE 

T kk=z 

206 GO SUB 225: LET t=t+i: IF NOT Uflag THEN GO TO 212 

209 LET hS=fS( TO i i i ) -HSTRS t+" . CZ" : RANDOMIZE USR LK: GO TO Gd 
rive: POKE 23728, LK: RANDOMIZE USR LK: LOAD h$ CODE : RANDOMIZE 
USR LK; GO TO Drive 

212 FOR L=z TO 31: LET y=y+i: IF y<ff THEN GO TO 217 

213 LET f=175-L-24*INT <L/8): LET u=0: LET kk=0 

214 LET u=-u+l: IF yCia,9) THEN IF y>y<ti,6) THEN LET kk=u: INVE 
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RSE yCu.ll): GO SUB y(u,l) 

215 IF u<Last mm "go to 214 

216 IF NOT kk THEN GO SUB 225 

217 NEXT L; INVERSE z 

218 IF Giiiade=ii OR Ginode=iv THEN GO SUB 500 

219 IF Gmode>ii THEN LET h$=fS< TO iil)+STRS t+" . CZ" : PRINT AT 
11, 16; h$. AT 15, 16; ••Scale= ";Sczile: RANDOMIZE USR LK: GO TO Gdrl 

ve: RANDOMIZE USR LK: SAVE h$ CODE 16384,4112; RANDOMIZE USR LK; 
GO TO Drive 

220 CLS : PRINT AT 18 , i 1 ; f $;"*"; scale ' " Frame #";t;" done,'* 

221 LET s=0; FOR n=l TO Last: LET s=s+y(n,9): NEXT n: IF NOT s 
THEN LET Uflag=z: RETURN 

222 IF (t=76 OR t=152) AND Gmode>ii THEN GO SUB 9093 

223 GO TO 206 

225 LET ff=4096: LET s=l 

226 IF y(s,9) THEN IF y(s,6)<ff THEN LET ff=yCs,6) 

227 IF s<Last THEN LET s=s+l: GO TO 226 

228 LET ff=ff AND ff>0: RETURN 

300 FOR n=2<:i.i) TO here STEP ~i; FOR k=i TO 11: LET z(n+ii,k> = 
z(n+i,k>: NEXTk: NEXTn: LET z < i , i > =z ( i , i > +i : RETURN 

302 FOR n=here TO z(l,l)-l: FOR k=i TO 11: LET z (n+i , k)=z (n+ii , 
k>: NEXTk: NEXTn: LET z <z ( i , i ) +1 , 1 > =z : LET z < i , i > =2 (1 , 1 >-i : IF 

here>zCi,l> THEN LET here=z(l,i) ' 

303 RETURN 

305 PRINT INK 8; PAPER 8; AT ii, 11; "LAST ";z(i,l);" " ; AT ii,xx 
{•'SELECT ";AT ii, 27; Here;: FOR k=left TO left + iv: LET b=6*(k 
-left>+2: LET d=k+l; LET c=(z<d,6)-l> AND <z<d,l>=10>: PRINT AT 
4,b;k;" " ; AT 5, b; Q$ (zCd, D + l+c) ; 

306 FOR n=l TO 11: LET a=INT <z (k+1 » n> *1000 > : PRINT INK H-(k=H 
ere>+(6 AND k>z<l,l));AT n+6 , b; a/1000 : NEXT n: NEXT k , 

307 PLOT 0,168: DRAW 0,-150: DRAW 254,0: DRAV 0,150: DRAW -254, 
0: RETURN 

450 LPRINT " !G89;32;22;2 1Z"; : RANDOMIZE USR (LdO+47) : RETURN 

451 LPRINT " 1/1G89;32;22;2;Z"{ ; RANDOMIZE USR (Ld0+47>: RETURN 
453 POKE ldl,64: POKE ld2,64: POKE ld3.8: POKE ld4,128: POKE Id 

5,80: LPRINT " 1 G89 ; 64 ; 1 ; 3 I Z" ; : RANDOMIZE USR (LdO"»-45> : RETURN 

500 POKE Idl.llO: POKE ld2,128: POKE ld3,32; POKE ld4,0; POKE 1 
d5,64: LPRINT " !G1; 110;4; i;Z"; : RANDOMIZE USR 27040: RETURN 
1200 RETURN 

1210 LET a=z<ss, v)/ii: LET b= (z (ss, ill > -fz Css, iv) > /ii : LET c=ABS 
(b-z(ss, iv> ) 

1211 LET y(n,i)=LK: LET y (n, ii > = (b-c> :*ckY; LET y (n, i i t ) = <b+c ) 3KkY : 
LET y(n, v> = (zCss, ii) +a)*kX-i/ii: LET y (n, six) = (z <ss, i i ) -a) )KkX+i 

/ii: GO TO rr 

1220 LET b=z(ss,ii): LET c=z Css, v) /i i : LET a= (z (ss, i i i ) +z (ss , i v) 
)/ii: LET d=ABS (z (ss, iil)-z <ss, iv) >/ii 

1221 LET yCn.i)=LK: LET y(n, ii) = <b-c)*kY: LET yCn, iii>=,<b+c>*kY: 
LET y(n, v) = <a+d)*kX-i/ii; LET y<n, six) = (a-~d>*kX+i/ii : GO TO rr 

1230 LET b=z(ss,ii): LET d=z Css.dv) /i i ; LET c=zCss,v)/ii 

1231 LET y(n,i)=LK: LET y (n, ii ) = <b~d> *kY: LET y<n, iii)= (b+d) *kY: 
LET y(n, v) = (z(ss, iii>+c>*kX-i/ii: LET y (n, six)-<zCss, iii>~c)':4ikX 

+i/ii: GO TO rr 

1240 LET b=z<ss, ii) 

1241 LET yCix, i) = 160; LET y (n, i i i ) =z <ss, v) *kl : LET y (n, iv) =z (ss, i 
v)*kX: LET y(n, v)=(z(ss, iii)+zCss, iv) )*kX-i/ii: LET y<n,six)=(z( 
ss, iii)-z(ss, iv) ) *kX+i/it: GO TO rr 

1250 LET a=(2(ss, iv)+z(ss, ii))/ii: LET c= Cz (ss, iv) ~z (ss, i i ) ) /i i : 
LET d=z(ss, v)/il: LET b=2 (ss, ii i ) +c*SGN d: LET w=ABS c+ABS d 

1251 LET y(n,i)=130: LET y (n, i i )= (b-w) *kY: LET y (n, iii) = (b+w) *kY 
: LET y(n,iv)=(ABS d)*kD-i/ii: LET y (n, v) = (a+w) *kX-i/ii : LET y(n 
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, six> = (a-w>3|ckX+i/ii: LET y (n, 12) =kl*SGN d: GO TO rr 

1260 LET a=(z<ss, iv)+z(ss, 11) >/ii: LET c= <z (ss, iv)-z <ss. i i > ) /I i : 
LET d=z(ss, v)/ii: LET b=z(ss, lli>+c*SGN d: LET Vf=ABS c-hABS d 

1261 LET y(n,i)=120: LET y<n, ii)=z: LET y(n, ili>=879: LET y(n, Iv 
)=(ABS d*kD)-l/il: LET y<n, v)=<a+w)*kX-i/li: LET y (n, six) = (a-w) * 
kX+i/ii: LET y(n, 12)=kl*SGN d: GO TO rr 

1270 LET c=z(ss,ii): LET al=z (ss. Hi ) : LET d=2(ss,iv): LET bl=z<' 
ss.v): IF c=d OR al=bl THBH GO TO 1310 

1271 LET a=Cal+bl>/ii: LET b= (c-»-d>/ii : LET Tan= (bl-al )/(d-c) : LE 
T d=ABS Cd-c>/ii: LET c=ABS (bl-al)/ii 

1272 LET w=z<ss,six)/ii: LET An=ATN Tan; LET Sln=SIN An: LET evf= 
ABS (w^Sin): LET eh=w*COS An 

1273 LET y(n,i)=130: LET y (n. 11 ) =(b-d-ew) *kY: LET y ( n , i 1 i ) = < b+d+ 
ew)*kY: LET y(n. iv)=ABS (w/Sin^kY) -i/ii ; LET y(n, v) = ^ a+c+eh > tkX- 
i/li: LET y Cn, six) = <a-c-eh) *kX+i/l i : LET y (n, 12) =kl/Tan: GO TO r 
r 

1280 LET b=z(ss,ii): LET a=z(ss,iii): LET h=z(ss,iv) 

1281 IF h<=z THEN GO TO 1310 

1282 LET y<n, i) = 140: LET y(n, iv)=li*kX: LET y (n, v)< <a+. 74*h) *kX-i 
/il: LET y<n, six)=(a-. 75*h>*kX+i/ii: GO TO rr 

1290 LET b=z<ss,ii): LET a=z(ss,iii): LET h=z(ss,iv) 

1291 IF h<^z THEN GO TO 1310 

1292 LET y(n,l) = 150: LET y(n, iv)=li*kX: LET y (n, v) = (a+h) *kX- i/i i : 
LET y(n,six) = <a-h)*kX+J./ii: LET y(n, 12) = . 75*h*kY: GO TO rr 

. 1300 LET b=2<ss,ii): LET a=z(ss,iii): LET c=z(ss,iv): LET d=z<ss 
.Y): LET w=2<ss,six): LET al=(w>i AND w<7): LET bl=w>v OR w<iii 

1301 LET y(n,i)=170: LET y (n, ii ) =w- ( i v AND w=8): LET y<n,iii)=d* 
kl: LET y(n, iv)=c*kX: LET y(n,v)=(a+(c AND bl))*kX-<.5 AND bl): 
LET y(n,six)=<a-(c AND al))*kX+(.5 AND al): LET y (n. 12 )« (c*kX-i/ 
ii) AND al 

1302 LET y(n, 7)-2;(6s, 7) : LET y ( n, 8 > =z ( ss , 8 ) *kY : LET y(n,9)=z<ss, 
9): -LET y(n, 10)=z(ss, 10)*kX: LET y ( n, 1 1 ) =z (ss, 11 ) : LET y(n,13)=b 
*kY: RETURN 

1310 PRINT AT lO.iii;" BAD DATA. ITEM #";ss-i;" PAUSE z: ON 

ERR GO TO Main: LET n=n/z 

3020 CLS : PRINT " VIDJUP DATA LOAD SERVICE Drive " ; Ddri 
ve,,"";AT iv,ii;"DATA ARRAYS are usually stored on DRIVE O."*''* 

Enter new drive # or simply. ENTER to accept." 

3021 ON ERR RESET : INPUT "Drive #? '^IS: IF I$=:"" THEN LET n= 
Ddrive: GO TO 3023 

3022 ON ERR GO TO 3021: LET n=VAL 1$: ON ERR RESET : LET Ddriv 
e=n 

3023 CLS : PRINT " VIDJUP DATA LOAD SERVICE ": RANDOMIZE U 
SR LK; GO TO n: RANDOMIZE USR LK: CAT " , AZ*» , : PRINT AT i , z ; D 
rive Ddrive; " : OVER i AT 18, z; "Extension . AZ will be 

appended. ENTER to QUIT " 

3024 INPUT "Which ? ";I$: IF LEN I$=z THEN RETURN 

3028 LET F$=I$+", AZ": RANDOMIZE USR LK: LOAD I$+" . AZ" DATA zO: 
RANDOMIZE USR LK: GO TO drive 

3029 LET here=l: RETURN 

3041 IF z(i,i)=z THEN GO TO 3060 

3042 CLS : PRINT AT 8,8;" WARNING File ";f$;" Is present." 
••" Continuing will destroy file.": INPUT "Continue? Y/n ";IS: I 
F I$="Y" OR I$="y" THEN DIM z(100,ll): LET fS="No Data"; GO TO 
3060 

3043 PRINT ••" CANCELLED": RETURN 

3060 LET here=here-(here AND fS="No Data"): LET qS--=" : : ; ; Xx : ; ; 1 I 

3061 GO SUB SE: GO TO HK 

3063 INVERSE p5: PLOT pl,p2: DRAW p3 , p4 : INVERSE z: RETURN 
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3064 PLOT pl,p2; DRAW p3 , z : DRAW 2 , p4 : DRAW --p3,2t DRAW z,-p4: R 
BTUit 

3065 CIRCLE pl,p2,p3: RETUR]^ 

3066 PLOT pl,p2: DRAW p3,p4: RETURN 

3067 PLOT pl,p2: DRAW i,iii: DRAW DRAW DRAW -i, 
iii: RETURN 

3068 PLOT pl,p2: DRAW iii,i: DRAW DRAW -iii,-i: DRAW -ii 
RETURN 

3069 LET c=PI/ii: LET a=INT (<p7-l>/ii): LET b=INT <p7/ii)+i: FO 
R k==a*c TO b^c STEP l/p3: PLOT pl+p3*C0S k,p2+p3*SIN k: NEXT k: 
RETURN 

3080 GO SUB 4010 

3081 FOR n=ii TO z(i,i)+i 

3082 PRINT AT 18 , z ; " #" ; n-i : LET a=2(n,i): IF a=z THEN PRINT AT 
11,5; OVER i;" BAD or NO DATA " 

3083 IF a=i THEN LET pl=L*z <n, il) +xo: LET p2=L)|cz <n, 1 i i ) +yo: LET 
p3=z: LET p4=L* (z (n, 4 ) -z (n, ii 1 > ) : LET p5=z<n,ll): LET bb=3063 

3084 IF a=ii THEN LET pl=L)(cz <n, iii ) + xo : LET p2=L*z Cn, i i ) +yo: LE 
T p3=L*(z(n,4)-z(n, iii>): LeT p4=z: LET p5=zCn,ll): LET bb=3063 

3085 IF a=iii THEN LET p2=L*z (n, i i ) : LET pl=L*z <n, i i i > : LET p4= 
L*z(n,4): LET p3=L*z(n,5): LET p2=p2-p4/i 1+yo : LET pl=pl-p3/ i i+x 
o: LET bb=3064 

3086 IF a=iv THEN LET pl=L*z < i i 1) +xo : LET p2=L*z (n, 11 > H-yo : ' LE 
T p3=L*z(n,4): LET bb=3065 

3087 IF a=v OR a=six THEN LET pl=L3Kz <n. ii ) +xo: LET p2^L*z(n,' ill 
)+yo: LET p3=L*(z (n, 4 )-z (n, ii> ) : LET p4=SGN z(n,5)*p3: LET bb=30 
66 

3088 IF a=7 THEN LET p4=L* (z (n, 4)-z Cn, 1 i) ) ; LET p3=L* <z <n, 5 > -z ( 
n.llD): LET pl = L*2 (n , 1 i i ) +xo : LET p2=L:tJz (n, ii > +yo: LET bb=3066 

3089 IF a=8 THEN LET pl=L*z <n. iii>-i+xo: LET p2=L*z (n, 1 1 > +yo : L 
ET bb=3067 

3090 IF a=9 THEN LET pl=L*z (n, i i 1 ) - 1 i i+xQ : LET p2=L*z (n, i i ) +yo : 
LET bb=3068 

3091 IF a=10 THEN LET pl=L*z<ii, iii>+xo: LET p2=L*z (n, i i ) +yo : LE 
T p3=L*z(n,4>: LET p7=z(n,6>: LET bb=3069 

3092 LET yy=p2: LET b2=z(n,7>: LET a2=z<n,9>: LET a3=b2 

3093 ON ERR GO TO 3094; GO SUB bb: LET p2=p2+L*z <n, 8 ) : IF b2>l 
THEN LET b2=b2-l: GO TO 3093 

3094 ON ERR GO TO 3095r LET p2=yy: LET b2=a3: LET pl'^pl+L^z ( n, 1 
0): IF a2>l THEN LET a2=a2-l: GO 3093 

3095 ON ERR RESET : NEXT n: RETURN 

3100 CLS : PRINT " VIDJUP DIRfeCTORY SERVICE DRIVE TYPE 

3101 PRINT 0 DISK DRIVE'""' 1 DISK DRIVE'"'" 2 
DISK DRIVE'" "• 3 DISK DRIVE'" "' 4 RAMDISK'" '" 

5 QUIT " 

3102 PRINT "' Fault conditions are sensed"," and displayed for 
your act ion. " 

3103 ON ERR RESET : INPUT "SELECT ";IS: IF NOT LEN 1$ THEN LET 

I$=:"5" 

3104 ON ERR GO TO 3103: LET n=VAL 1$: ON ERR RESET : IF n<z OR 
n>5 THEN GO SUB Err: GO TO 3103 

3105 IF n=5 THEN RETURN 

3106 IF n=4 THEN GO TO 3118 

3107 PRINT AT 18,0,,,,,,,,: OUT 8.2'^(n+l>: OUT 16,208: PAUSE 10: 
OUT 16,0: PAUSE 90: LET tst=IN 16: IF tst-2*INT (tst/2) THEN P 

RINT AT 20, 2; "DRIVE NOT AVAILABLE": PAUSE 120: GO TO 3100 

3108 OUT 16,95: PAUSE 90: LET tst=IN 16: IF tst~2*INT (tst/2) TH 
EN PRINT AT 18, 2; "DRIVE IS NOT READY"'" Check for open door, mi 
ssing or inverted disk. Correct problem and CONTinue.": OUT 8,4 
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: PAUSE 10; OUT 8,3: STOP : GO TO 3107 

3109 LET bit=INT (tst/64): IF bit-2*IirT (bit/2> THEN PRINT AT 1 
8,2;"<DISK IS WRITE PROTECTED)": PAUSE 60 

3110 LET bit=INT (tst/16): IF bit-2)»:INT (blt/2) THEN PRINT AT 1 
9, 2, -"UNFORMATTED OR FOREIGN DISK",*' Insert correct formatted dis 
k and CONTinue,": STOP : GO TO 3107 

3118 CLS : PRINT " VIDJUP DIRECTORY SERVICE " : RANDOMIZE U 
SR LK: GO TO n: RANDOMIZE USR LK: CAT , : PRINT AT l,z;" Drive 

";n;": OVER i;"", . 

3119 RANDOMIZE USR LK: GO TO drive: RETURN 

3120 INPUT "Comment, Date? ";aS: LPRINT #5' "DATA REPORT., " ; a$ 

3121 GO SUB 3080: GO SUB 451: LPRINT CHR$ 10 

3122 LET Last=Z(i,i): FOR L=ii TO Last+i: PRINT AT xx,z,,,,AT xx 
,z;: LET c=L-l: GO SUB 3128: RESTORE z(L,i)-f3200: READ i$: PRINT 

INVERSE z(L,ll);" ";IS;" " ; : PRINT " ";: READ k: FOR k=ii TO k 
+i: READ IS: PRINT IS;: PRINT z<L,k);: NEXT k: GO SUB 3129 

3123 PRINT TAB 30 ; " £ x, y] C" ; z < 1 , 9 ) ; "*" ; z ( 1 , 7 ) ; " 3 , PitchC" ; z CI , 10 ) 
;";";z(l,8>;"]": GO SUB 3129 

3124 IF c=28 OR c=73 THEN LPRINT ' • ' » ' 

3125 NEXT 1: PRINT "END OF DATA",.,,: GO SUB 3129: RETURN 

3128 PRINT " " AND c<LK;" " AND c<10;c;" ";: RETURN 

3129 GO SUB 453: PRINT AT xx.z,,,,AT xx,z;: RETURN 

3140 ON ERR RESET : CLS : PRINT " WIDJUP GENERATE SERVICE 
0 QUIT"''" 1 Screen Only 2 LPRINT""" 3 FIL 

E"' '" 4 LPRINT & FILE" 

3141 INPUT "Select by # ";I$: ON ERR GO TO 3140: LET Gmode=VAL 
<"0"+IS>: ON ERR RESET : IF Gmode<z OR Gmode>iv THEN GO TO 314 

1 

3142 PRINT "♦ Mode Is #";Gmode'"' 0.73 Scale will print an'"" 
overlay matching the REPORT." 

3143 IF NOT gmode THEN PRINT ''"CANCELLED": RETURN 

3144 RANDOMIZE USR LK: LOAD "yO.Al" DATA yO: LET Uflag=z: IF -g 
mode>ii THEN INPUT "New or Update? ";I$: IF LEN IS THEN IF I$< 

TO i)="U" OR ISC TO i)="u" THEN LET Uflag=i 

3145 IF NOT Uflag THEN INPUT "SCALE? ", -Scale: GO TO 3148 

3146 LET i$=fSC TO iii)+"l.CZ": RANDOMIZE USR LK: GO TO Gdrive: 
RANDOMIZE USR LK: LOAD IS CODE 

3147 LET 1S="": FOR n=22 TO 28: LET i$=i$-»-SCRBENS (15, n>: NEXT n 
: LET Scale=VAL iS 

3148 LET kY=Scale*110: LET kX=kY/kl: LET kD=kY*l,414: PRINT #1;" 

WORKING " 

3149 LET Last=z(i,i): FOR n=i TO Last: LET ss=n+i: LET nn=z(n-+i, 
i>: IF nn<i OR nn>10 OR nnOINT nn THEN PRINT AT 21,s'ix;"BAD D 
ATA AT ";3000+n;"": STOP : RETURN 

3150 LET Mode=1200+10*nn: GO SUB Mode: NEXT n: CLS : GO TO 205 

3161 CLS : RANDOMIZE USR LK: GO TO Gdrive: RANDOMIZE USR LK: CAT 
" , CZ" , 

3162 INPUT "FILE(no ext)?";IS;" Count? ";bb: LET I$=IS+" ": 
LET IS=IS( TO iii): CLS 

3163 FOR L=i TO bb: LET H$=IS+STR$ L+" . CZ" 

3164 PRINT AT 18, z: POKE 23728, LK: RANDOMIZE USR LK: LOAD HS COD 

E 

3165 IF PEEK 23728=LK THEN GO TO 3168 

3166 IF PEEK 23728= (LK+i ) THEN IF L=77 OR L=153 THEN PRINT AT 
18, ii;" INSTALL NEXT DISK ": GO SUB 9094: PRINT AT 18,0,,,,,,,,: 

GO TO 3164 

3167 RANDOMIZE USR LK: GO TO drive: RETURN 

3168 GO SUB 500: NEXT L 

3169 RANDOMIZE USR LK: GO TO drive: RETURN 

3180 ON ERR RESET : CLS : PRINT " VIDJUP SAVE SERVICE 

40 



Existing File is ";F$,"" 

3181 PRItT I KllP mhm WAift"**"* g MMtthm FlhM <l-e CMi?$>" 

(Extension . AZ is provided.)"''" 3 QUIT " : IF F$="No f)ata 
" THEU PRINT ' ' NO FILE EXISTS TO SAVE : RETURN 

3182 INPUT "Select by # ";I$: ON ERR GO TO 3180: LET a=INT VAL 
("0"+IS): ON ERR RESET : IF a<l OR a>3 THEN GO TO 3180 

3183 IF a=3 THEN RETURN 

3184 IF a=l THEN LET I$=F$: GO TO 3187 

3185 INPUT "File Identifier? ";IS: LET IS=I$+",AZ": PRINT AT xx, 
12; IS: IF LEN IS<4 OR LEN I$>9 THEN PRINT "INVALID FILE NAME, T 
RY AGAIN": PAUSE 120: GO TO 3180 

3186 LET FS=IS 

3187 PRINT AT 20,3;" SAVING ";IS;"",: RANDOMIZE USR 100: SAVE 1$ 
DATA zO: PRINT AT 20,3;!$;" SAVED",,: RETURN 



3201 DATA " ;", iv,"XO=","; Y=" , " to 

3202 DATA " I " , i v, " Y0=" , " ; X=" , " to ", 

3203 DATA " I " , i v, " Y0=" , " , X0=" , " ; H=" , ' 

3204 DATA " I " , i v, " Y0=" , " , X0=" , " , Rx= 



Vidth= 
Vidth= 

* , Ry/Rx=" 



3205 DATA ("1" AND z ( 1 , vXz ) + <" I " AND z ( 1 , v> >z > , iv, "Xl=" , '» , yi=" 
,"; X2=","; Vidth=" • 

3206 DATA ("I" AND z ( 1 , vXz ) + (" ! " AND z < 1 , v) >z > , i v, " Xl=" , " , Yl=" 
,"; X2=","; Vidth=" 

3207 DATA "!",v,"yi=",", Xl=" , " ; Y2=" , " , X2=" . " ; Vldth=" 
3206 DATA " ; " , i i i . " Y0=" , " , X0=" . " ; Rad=" 

3209 DATA " ! " , ii i , " Y0=" , " , X0=" , " ; Rad=" 

3210 DATA CHR$ ( 155+z ( 1 , six) > , v, "X0=" , " , Y0=" , " ; Rx=" , " ; Ry/Rx=" 
, " ; Quad=" 

3230 CLS : PRINT " VIDJUP EDIT SERVICE",' ' 1 { Line"," 

' -Jog 2 ! Line"," 8 ! Jog"*'" 3 1 Box"," 9 I SI 

ant"''" 4 1 Circle", "10 1 Pad"*'" 5 ! 45 Deg","ll I Pad" 
'"'6 1 45 Deg","12 I" Quadrant'"'"' Items oriented as they a 
ppear DISPLAYED, not as printed." 

3231 INK 2: FOR n=0 TO 5: PLOT 30,62+16*n: DRAW 0,11: DRAW 11,0: 
DRAW 0,-11: DRAW -11,0: NEXT n: FOR n=0 TO 5: PLOT 158,62+16*n: 



DRAW 0,11: DRAW 11,0: DRAW 0,-11: DRAW -11,0: NEXT n: 
TURN 

At X= 



3301 DATA 
dth="," 

3302 DATA 
dth=" , " 

3303 DATA 
deX=" , " 

3304 DATA 
/Rx=" , " 

3305 DATA 
Vidth=" , 

3306 DATA 
Vidth=" , 

3307 DATA 
Vidth=" , 

3308 DATA 
Vidth=" , 

3309 DATA 
To X=", 

3310 DATA 

3311 DATA 



At Y=" , " 

At Y="," 

At Y="," 

1 From X=", 
fi 

1 From X=", 
1 From X==", 
1 From X=", 



NK 0: RE 



1 From Y= 
5 Vidth=" 

1 At Y=" 



At Y= 



3312 DATA CHR$ ( 155+z (c , 6 ) ) , ' 
Rx="," 4 Ry/Rx="," 5 Quad= 

4 1 



2 


Y=" , " 


3 To 


Y=' 




4 


Wi 


2 


X=" , " 


3 To 


X=' 




4 


Vi 


2 


X=" , " 


3 HighY=' 




4 


¥i 


2 


X=" , " 


3 


Rx=' 




4 


Ry 


2 


Y=" , " 


3 


To 


X=" 




4 


2 


Y=" , " 


3 


To 


X=" 




4 


2 


Y=" , " 


3 


To 


X=" 




4 


2 


Y=" , " 


3 


To 


X=" 




4 


2 


From X=" , " 


3 


To 


Y=", 




4 


2 


X=" , " 


3 Radlus= 


» 






2 


X=" , " 


3 Radius= 








1 


At Y=" , " 


2 


X=" 




3 





4010 CLS : LET L=40: LET yo=12: LET xo=36: PLOT xo-i,yo+161: DRA 

V 2,-162: DRAW 214, z: DRAW 2,162: DRAW -214,2: PRINT AT 2,iil;"4 
•♦;AT 5,ili;"3";AT 10, ill ; "2" ; AT 15 , Hi ; " 1" ; AT XX, i 1 i ; 0" ; AT 21,4 
;"0 1 2 >X 3 4 5"; AT 12 , 1 i ; " Y" • " ^" ; 

4011 FOR n=12 TO 173 STEP 4: PLOT 33, n: DRAW il,2: PLOT 249, n: D 
RAW ii,z: NEXT n: FOR n=36 TO 248 STEP 4: PLOT n,9: DRAW z,ll: P 
LOT n,173: DRAW z.ii: NEXT n 

4012 FOR n=i TO LEN f$: PRINT PAPER 5; AT n,l;fS(n): NEXT n: PRI 

NT AT 20,2; : RETURN 

4060 IF 2(i,l)<i THEN LET FS="No Data*' 

4061 BORDER 7: CLS : PRINT ♦ " WIDJUP EDIT SERVICE"," " ; F$ , , 

4062 PRINT AT xx, 1 ; " ESCF I XSELADD < PUTCUT > MAPDEL" ; AT 21,1;" 1 
23 4 56789 0 " 

4063 FOR N=7 TO 230 STEP 24: PLOT n,2: DRAW z,16: DRAW 24 , z : DRA 

V 2,-16: DRAW -24, z: NEXT N 

4064 REM spare 

4065 LET left=here-ii: IF left<i THEN LET left=i 

4066 PRINT AT 7,2, , , , , , : GO SUB He 

4070 ON ERR RESET : LET a=CODE INKEYS 

4071 IF a=4 THEN GO TO 4096 

4072 IF a=5 THEN GO TO 5000 

4073 IF a=6 THEN GO TO 5010 

4074 IF a=7 THEN RETURN 

4075 IF a=8 THEN LET here=liere- ( i AND here>i): GO TO WE 

4076 IF a=9 THEN LET liere=here+(l AND Jiere<2 ( i . i > ) : GO TO WE 

4077 IF a=10 THEN PRINT AT 10,12;" PASTING ";; GO SUB 4099: FOR 
n=i TO 11: LET z <here+i , n> =a (n> : NEXT n: GO TO WE 

4078 IF a=ll THEN PRINT AT 10,12;" CUTTING ";: DIM a<ll>: FOR n 
=i TO 11: LET a (n) =2 (here+1 . n) : NEXT n: GO SUB 4101: GO TO WE 

4079 IF a=12 THEN PRINT AT 10,11;" DELETING ";: GO SUB 4101: GO 
TO WE 

4080 IF a=13 OR a=14 THEN GO TO Hk 

4081 IF a=15 THEN GO SUB 4010: LET c=liere+i: PRINT AT 18,z;"#"; 
here; : FOR n=c TO c: GO SUB 3082: NEXT n: GO SUB Key: GO TO SE 

4082 GO TO Hk 

4096 ON ERR GO TO HK: INPUT "SELECT ITEM by # ";IS: LET her€=VA 
L <"0" + I$): ON ERR RESET : IF here<l THEN LET liere=l 

4097 IF liere>zCl,i) THEN LET here=z(l.-i> 

4098 GO TO WE 

4099 IF 2<i,i>=2 THEN LET 2<i,i)=i: LET here=i: RETURN 

4100 GO TO 300 

4101 IF here=z THEN GO SUB Err: RETURN 

4102 GO TO 302 

4500 PRINT " WIDJUP EDIT SERVICE DATA ENTRY AND MO 
DIFICATION "''."ITEM # ";here;" ";: READ 1$: PRINT " ";I$;" "': 

PRINT " 0 CANCEL ": FOR k=ii TO six: READ 1$: PRINT I$,z(c,k) 
: NEXT k: FOR k=7 TO 11: PRINT " " ; k-i , z <c , k> : NEXT k 

4501 PRINT AT 10.v;"Y Copies.,"; AT ll,v;"Y Pitch=" ; AT 12,v;"X Co 
pies.."; AT 13,v;"X Pitch=" ; AT 14,ii;"10 Eraser.."'" 11 INSTAL 
L " 

4502 PLOT 0,175: DRAW 255, z: DRAW z,-150: DRAW -255, z: DRAW z,15 
0 

4503 IF cc=12 THEN PRINT AT 20 , 0 ;" QUADRANT SFR I TES" ' " 1 = : , 2= I , 3 = 

; ,4=; ,5=; ,6=; ,7=! ,8=;"; 

4510 RETURN 

4901 DATA l,i,i,.02,z,i,z,i,2,z 

4902 DATA i,i,i,.02,z,i,z,i,z,z 

4903 DATA i , i , . 8 , . 3 , z , i , z , 1 , z , z 

4904 DATA i,l,. 03, 1,2, 1,2, 1,2,2 



4905 DATA i , i , 1 . 5 , . 02 , z , 1 , z , i , z , z 
490e DATA i,i.l,5,-,02,z,i,z,i,z,z 

4907 DATA i,i,1.5,.02,z,i,z,i,z,z 

4908 DATA i » i , 1 . 5 , - , 02 , z , i , z , i , z , z 

4909 DATA ii,i,i,ii,.02,i,2,i,z,z 

4910 DATA i, 1, . 04, 2, z, 2, . 3, 7, . 1, z 

4911 DATA i. ,i,.04,2,z,7,.l,2,.3,z 

4912 DATA i,i,.04,i,5,i,z.i,z.z 

5000 GO SUB ST: LET z (1 , 1) =z < i , i ) +i : LET here=z ( i , 1) 

5001 ON ERR RESET : INPUT "Select by # " ; 1$ 

5002 ON ERR GO TO Add+i: LET a=VAL <"0"+IS): ON ERR RESET : IF 
a<i OR a>12 THEN GO SUB Err: GO TO Add+1 

5003 LET c=iiere + l: LET fixx=2: RESTORE 4900+a: FOR n=2 TO 11: RE 
AD al: LET z(c,n)=al: NEXT n 

5004 LET g$="010203040505060607080910" : LET cc=a+a-l: LET z(c,i> 
= VAL (gSCcc TO cc + D): IF a=6 OR a=8 THEN LET z (c , 5 ) =-z ( c , 5 ) 

5005 LET cc=a: GO TO Fix+1 

5010 LET c=here-H: LET flxx=i: DIM eCll): FOR n=i TO 11: LET e(n 
)=2<c,n>: NEXT n: LET cc=e(i): LET cc=cc+(i AND cc>5)+(i AND cc> 
6>+<i AND <cc=5 OR cc=6> AND e(5><z): IF here<l THEN GO SUB Err 
: GO TO VE 

5011 CLS : RESTORE 3300+cc: GO SUB 4500 

5012 ON ERR RESET : INPUT "Select ";I$: IF 1$="" THEN GO SUB E 
rr: GO TO Fix+il 

5013 LET al=I$( TO i)="0": IF (al AND Fixx=i) THEN FOR n=i TO 1 
1: LET z(here+i, n)=e(n> ; NEXT n: GO TO SE 

5014 IF (al AND Fixx=z) THEN LET z ( here+ i , i ) =2 : LET z(i,i>=z(i. 

LET here=z(i,i): GO TO SE 

5015 ON ERR GO TO Fix+il: LET a=VAL 1$: ON ERR RESET ; IF a<l 
OR a>ll THEN GO SUB Err: GO TO Fix+li 

5016 IF a=ll THEN GO TO 5022 

5017 ON ERR RESET : LET Row=a+4: PRINT AT Row, 16; OVER i;" 
";AT Row, 16;: INPUT "Value=";I$ 

5018 ON ERR GO TO 5021: LET bb=VAL ("0" + I$): ON ERR RESET IF 
a=4 THEN IF cc=6 OR cc=8 THEN LET bb=-ABS bb 

5019 IF cc=12 AND a=5 THEN IF bb<l OR bb>8 THEN GO SUB Err: GO 
TO Fix+ii 

5020 LET z(c,a+i)=bb: PRINT bb; " ";: GO TO 5012 

5021 ON ERR RESET : GO SUB Err: GO TO 5017 

5022 IF f$<>"No Data" THEN GO TO SE 

5023 ON ERR RESET : INPUT "FILE NAME (less.AZ ext)? ",;f$ ' ■ 

5024 IF £$ = '•" OR LEN fS>six THEN GO SUB Err: GO TO 5023 

5025 LET fS=f$+".AZ": GO TO SE 

6000 FOR n=l TO 20; FOR 1=1 TO 10: PRINT AT n-1 , 1+1+1-3 ; CODE J$( 
n,l): NEXT 1: NEXT n: STOP : GO TO 6000 

7770 GO SUB 7771: FOR j=l TO 159: POKE LD0+j-l,CODE U$(j>: NEXT 
j: RANDOMIZE USR (LDO+49): LET ¥a=PEEK 23631+256*PEEK 23632: LET 

Vc=INT (LDO/256): POKE Va+15, LD0-256*Vc : POKE Va+16,¥c: RETURN 

7771 LET LD0=26995: GO SUB 7776: RETURN 

7776 LET Vld=INT (LdO/256>: LET Vlm=LdO-256*¥ld: LET Ldl=LdO+76: 
LET Ld2=Ldl+5: LET Ld3=Ld2+7: LET Ld4=Ld3+2: LET Ld5=Ld4+l: LET 
Vindow=LdO+45: RETURN 
8100 CLS : PRINT " IMAGE FILE COPY SERVICE"' '" Insert SOURCE dis 
k in drive 0, formatted DESTINATION disk in drive 1. (Empty or 

Matching)": PAUSE 0 
8102 RANDOMIZE USR 100: GO TO 0: RANDOMIZE USR 100: CAT " ^ . CZ" , 
8104 INPUT "Filename? ";F$;" From: "; from;" 'To: " ; to 
8106 CLS : FOR n=from TO to: LET h«=fS( TO 3>+STR$ n+" , CZ" : PAUS 
E 40: RANDOMIZE USR 100: GO TO 0 : RANDOMIZE USR 100: LOAD h$ COD 
E • 
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8108 PAUSE 40: RANIX3MIZE USR 100: GO TO 1: RANDOMIZE USR 100: SA 
VE h$> CODE 16384,4096 
8110 FEXT n 

8140 STOP : GO TO 8100 

8995 ON ERR RESET : CLS : PRINT AT 10,4;" Initializing CAD. BO " 
;: LET s=l: LET \i=s: LET kk=s: LET a=s: LET b=s: LET c=s: LET d= 
s: LET f=s: LET al=s: LET bl=s: LET j=s: FOR L=s TO s: NEXT L: L 
BT ff=sj LET Ge=44: LET aa=201: LET i=s: LET w=s 

8996 LET kl=lll/216: LET z=s-s: FOR n=s TO s: NEXT n: FOR k=s TO 
s: NEXT k: LET e=s: LET g=s: LET h=s 

8997 LET ii = i + i: LET lii = ii + i: LET iv=ii-fli: LET v=iv+l: LET six 
=v+s: LET xx=iv*v: LET drive=2: LET Gdrive=i: LET Ddr ive=dr ive : 
LET Here=s 

8998 LET Main=9000: LET Me=9006: LET Err=Me + i; LET KGy=Err-»-i: LE 
T Duinp=451: LET SR=3000: LET SE=4060: LET VE=4065: LET ST=3230: 
LET SD=6000: LET WD=6000: LET HE=305: LET HK=4070; LET ADD=5000: 

LET FIX=5010: LET jj=449: LET rr=1302 

8999 DIM zClOO.ll): LET FS=''No Data": LET LK=100: RANDOMIZE USR 
LK: LOAD "CAD. CU"CODE : RANDOMIZE USR LK: LOAD "PmodO.AS" DATA u 
SO: GO SUB 7770 

9000 ON ERR RESET : INVERSE z: PAPER 7: INK z: BORDER 6: CLS : 
PRINT " The VIDJUP Co. (C) 1989 . . CAD#2 MAIN MENU"." F 
UNCTION", "DESCRIPTION","": PRINT '" 1 LOAD","PCB Data Array"*'" 

2 CREATE", "New PCB" ' ' " 3 EDIT","PCB Data Array"*'" 4 DISPLAY- 
","PCB"''" 5 DIRECTORY", "Drives 0-4" ' 6 REPORT" , " LPR I NT Data 

' 7 GENBRATB","PCB Image" '' " 8 COPY" , 'IFrom Image File"''" 9 

SAVE","PCB Data Array" 

9001 INPUT "SELECT by # ";I$: IF 1$="" THEN GO TO Me 

9002 IF IS="q" OR I$="Q" THEN STOP : RANDOMIZE USR 100: LOAD "S 
HELL. Bw" 

9003 ON ERR GO TO Me: LET n=VAL 1$: ON ERR RESET : IF n>9 OR n 
<i THEN GO TO Me 

9004 GO SUB SR+xx*n 

9005 GO SUB Key: GO TO Main 

9006 ON ERR RESET : GO SUB Err: GO TO Main+i 

9007 PRINT #i;AT z,z;" BAD INPUT. TRY AGAIN. ": PAUSE 60: PRINT 
#i; AT z,z, , : RETURN 

9008 PRINT #i;AT z.six;*' PRESS ANY KEY PAUSE z: RETURN 

9093 PRINT AT xx--ii,i;" DISK FULL. INSTALL' ANOTHER, Enter 
""GO"" when ready.": RANDOMIZE USR LK: GO TO Drive: FOR n=l TO 8 
: BEEP .3,10: BEEP .3,22: NEXT n 

9094 INPUT "Enter ""GO"»* when ready. ";W$: FF LEN V$<2 THEN GO T 

O 9096 

9095 IF V$< TO 2>="G0" THEN RANDOMIZE USR LK: GO TO Gdrive: RET 
URN 

9096 GO SUB Err: GO TO 9094 

9500 FOR n=i TO xx: GO SUB 9501: PAUSE z: NEXT n: STOP : GO TO 9 

500 

9501 RESTORE 9502: CLS : PRINT "GROUP " ; n, ' ' : FOR k=i TO 11: REA 
D i$: PRINT iS;CODE j$Cn,k);" ".CODE o$(k>: NEXT k: RETURN 

9502 DATA " 1 col 2 ro*8 "." 3 dblh "," 4 lins "," 5 luarg " 
," 6 wide "." 7 n/1 "." 8 step "," 9 Gmod "."10 Nlsb ","11 Nmsb 

9990 POKE 26876,167 

9991 INPUT "Date? ";i$: LPRINT " I N" ; CHRS 6;: LPRINT #5'"CAD.B0 L 
isting ";!$••: LLIST #5: LPRINT " ; O" ; CHRS 12;: STOP 

9999 CLEAR : RANDOMIZE USR 100: GO TO 0: RANDOMIZE USR 100: SAVE 
"CAD, BO" LINE 8995: GO TO 8995 
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- WelcosYie to 1992 

- Typeliner 

- Grey Scale and Shading 

- Adding a 1 
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Typeliner is the desktop publishing 
eade&tioD pixgram to the Wojxi-Master 
word processing program. Typeliner is 
loaded into ttm WQrd-4yiast@> BAM Dkk 
and is executad with the GET 
anunaixL When Typeliner is 
IxonciMfied, it la confi^iired for your 
type of printer interface. The 
program itself is set up initially bo 
print to an Epson compatible printer 
althous^ it can be customized using a 
^pacial prograni for other types of 
prini]er& 

Some of the features of Typeliner 
indude full textual layout 
man^yulation, indusitm of 9CHEEN$ 
fifes, line and box dravring plus 
multiple fonts. When Typeliner is 
run, it fir^ a^ for the name of a 
Word-lilaster beast file which wiU be 
used in creating the pag& After the 
name of the text fik is entered, the 
name of the poga layout file (if any) 
is entered. The program then jumps 
to the page layout screen, which is the 
Contini^ on page 2 



The SDPJ is looking at 1992 as a 
challenge to ke^ Timex/Sindair users 
interesled in their computers with the 
help of new [Hxiducts in desktop 
putdishing and grap^iks. Our plan is 
bo provide you with information on 
products available without swamping 
you with details. 

By bringing you this land of product 
information, we hope to keep your 
Timex/SSndair computer fresh and 
alive over the next yearl 

Mike Felerski, Editor 



Reoontly, the term tarey Scale" has 
been tossed arouixi in the 
Timex>Sindair i desktop put^shing 
ccanmunity. A l^rey Scale" graphk or 
SCREENS (as in the case of the 
TS2068/St>actnim) is one whk:h has 
been converted from color to varying 
shades of Hack and white like a 
newspaper pMbx As the colors vary 
from light to dark, a series of light to 
dense dot patterns are used to show 
the cokn^ as shades of grey. 

There are currently two programs for 
the TS2068 ¥rtik:h will convert color 
TS2068/Skiectrum SCREEN$s into 
"Qrcy Scale" images. The first is 
Zebra Systems ZPRINT 80 (currently 
available from RMG). ZPRINT 80 is a 
full printer support package which 
provides a TS2068 and S^trum print 
driver for the Aerco, Tasman and 
A8cJ printer interfaces. ZPRINT 80 
supports LPRINT, LUST, COPY and a 
full page Grey Scale cdor SCREENS 
COPY. 

The second utility is called 
C0L0R2GREY by John McMichael and 
is available from Ed Grey Enterprises 
(see inset). C0L0R2GREY is different 
from ZPRINT 80 in that it converts 
cokir TS206e/St>ectrum SCREENSe into 
Gr^ Scale SCREEN$s whk:h may then 
be LOADed into any one of sevmd 
desktop publishing programs. 

Althcnigh I have cai^t wind of other 
such programs, ZPRINT 80 and 
C01jCH\2GREY are at the forefront of 
Grey Scale utilities. Both perform a 
different functkxi, and each is a MUST 
HAVE for your (tesktc^ puUishing 
software library. (For more 

information, see the COL0R2GREY 
article in this issm). 



As mentioned in the Qrfey Scale artide 
in this issue of the Journal, 
C0LCm2GREY is a desktop publishing 
utility which cmy&i& a 
TS206a/^jectrum SCREENS into a 
Grey Scale SCREENS ao that it may 
be imported into a desktop publishing 
ffftjgram packagR. 

O0LOR26REY was written by Jdin 
McMichael who also offers three Print 
factory Graphic Designs packages 
which were reviewed in the previous 
issue of the Sinclair Desktop Publishing 
Journal (in Update magazine). 

COLORGREY comes on cassette with a 
two page instructkm set It is 
introduced as "a unkiue graphic utility 
for the TS2068r. with witch "a cotor 
SCREENS is converted bo a black & 
white SCREENS with different shades 
of grey (greyscalee) repladdng the 
original INK/PAP^ ockts" as its own 
introduction states. O0lj0R2GREY also 
provides a Qny Scale editor for 
customization of the Grey Scale 
patterns. 

CCHJ0R2GREY comes standani with 
LOAD and SAVE to cassette, but it 
can be modified by the user to work 
with disk systems since the I/O 
commands are in BASKL The two 
page instruction set contains the 
information to cu^omize, backup and 
detain ^ipport from the author. 

The Main Ktenu qitkms indixk the 
foUowing; View Qrey Scale SCREENS, 
View Cdor Screen, Save GreyScale 
Screen, Save Cdor Screen, Save 
GreyScale Data, Load (^^eyScale Data, 
Copy GreyScale to 2040, GreyScale 

(See COLXmSKET on page 4) 
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(from page 1) 

At the Main Screeai, text boxes are 
created, sized and kicated on the page 
layout area. The text boxes can be 
placed anywhere on the page and can 
be any size: Page two of volume 1 
issue 4 of the Sinclair Desktop 
Publishing Journal was created using 
t¥^ve sqsarate text boxes and tvro 
9CREEN$s. 

SCREENSs are pulled in from the RAM 
EXsk and then d2»d by Typdiner. 
Although SCREEN$s are proportionally 
limited as far as sizing is concerned, 
the effects allowed by Typdiner are 
more than adequate. 

One important side feature is 
TypeUner^ aHUty to print SCREEN$s 
38 Grey Scales Cor SCREENS shading 
as the manual states). This feature 
can be applied or not to each SCREENS 
on the poga This way a separate 
Scale conversion program such 
as aX0R26REY could be used for 
some SCREEN$s, and the Typeliner 
feature on others. 



There are four types of boxes as well 
as horizontal and vertical lines 
available for placement on the page. 
The box styles are: Thin-line, 
shadowed, outline and thick-line. The 
Typdiner box/line features provkle 
basic DTP buikiing blocks. More 
comptex borders can be kjaded as 
SCREENSs or even fonts! 

The figure below is an actual Larken 
(NMI) SCREENS snapshot from the 
Typeliner Main Screen for the front 
page (rf this issue trf the Journal (Notes 
The last two SOiffiNS lines 71 and 
23 are missing because Typeliner will 
not import a full 24 line SCREENS). 
As we sec in the figure, the right 
hand side of the Main Screen is a 
graphic representatkui of the «:tual 
page. The text has been replaced liy 
lines whfch represent the lengths of 
text lines gra{rfik:ally. 

On the left is a window whfch contains 
the actual text found in the first few 
lines of the text block. The text will 
change as we jump block to Week with 
the NEXT command. At any time 



while paging through the text blocks, 
the E4tey (EDIT) may be pressed and 
we instantly ^p to the Word-kfester 
word processing program at the exact 
kicatton the start of the text block 
we were viewing. Thus, we have *Edit 
on the fV capabaities. 

Once the page format is created the 
actual text can be inputed to fit 
within the text blocks with the VIEW 
command. Once the VIEW command 
is finished painting the screen, we end 
up with a page layout with the dotted 
text bk)ck lines removed and the 
graphfcal text representatkm of the 
page layout in its place. Finally, once 
everything is in its proper place and 
adjustments have been made, the page 
layout can be SAVBd separately and 
used later for future pages. 

Tliere are two types of page printing 
available for cKitput -to your 
dot-matrix printer: Draft and FSrinL 
The draft command is used primarily 
for visual layout of the physfcal paga 
The text printed in the Draft option 

Continued on page four„ 
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INCREASE YOUR DESKTOP 
PRODUCTIVITY WITH A MOUSE 
FOR YOUR KEMPSTON PORT 

Fop the last three op four years I have heapd sevepal puwors 
regarding people using a Connodope 64/108 cot^patible nouse with 
the TSS06S . But due to its price Cbetween *35 and *40) , I was 
not peady to expepiment unti 1 I had oonf irning inforMation to 
its cohipatibi li ty . The November -December issue of Sinc-LinK with 
George Chambers' letter to "Out of Towners" contained Just the 
information I needed to naKe that purchase. 

The nouse I have purchased is the "Winner M3" mouse which is 
compatible with the Commodore 1350 and 13151 mice. The mouse plugs 
into any Kempston compatible Joystick port. Since I have a LarKen 
disk interface, I plugged my mouse into the Larken interface's 
Kempston port. To initialize the mouse you must press and hold 
down the right mouse button when you power on the computer. This 
move can be a little tricky if you wish to activate a Larken 
AtXTOBOGT program from disk Cremember your must hold down the 
<ENTEB> key to activate an AUrOBOOT program while powering up> . 

My first application on which to try my mouse was the Print 
Factory's First Edition. As soon as the program came up, the 
mouse operated flawlessly as if were made for the TSa068/Spectrumt 

And what are the advantages to using a Commodore compatible 
mouse? Let 's see . , . 

o One H>4ND Oi^ER^rrxoN 

o Smooth Cor*TRoi_i_E:D Movementt 

o QuxcK >ir<4D E>isv "Fire bux-row" ><cmv>moN ' , 

o No Neted fo« SoF-rw>»RE OR P^rrcHES to Existing Progr>4MS 
CJusT >iND Pluo ^nd Go ! > • 

On the negative side... 

° Srit'^taKS^^S *^fo^«5o"^^"^*^'^ CoMR>iTie.L.E Joystick Interi->ices, 
DUT Not the TS2068 Joystick Ports Csofar>. 

o House Cord is Huoh Too Short <mchjt EM'VyOcM i_ong> ^nd 
LxMXTS nofc.ii_XTV HITHOirr Joystick Extent ion Cord 

C>l^/>IIL.>IB.L.E FROM R>iDIO Sh><ICK FOR >IROUNO S10, «a6-117>. 

Mike Felerski 
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Qrom page 2) 

is just bardy readable but graphics 
are much more clear. 

The final or Print option produces the 
final copy whfcJi indiates three pass 
text printing for darity and iedgibtiity 
of the text characters thus producing 
the page you see here. 

There are several other features 
within Typeliner including 

Renumbering Text Blocks, a 
measuren^t grid, line spacing 



Woni-4ite8ter, Typeliner and HeodUner 

Jack Dohany 
390 Rutherford 
Redwood aty. CA 94061 
Phone: (415)367-7781 

RMG Enterprises 
M19 1/2 7th Street 
Oregon Qty, OR 97045 
Phone: (503) 655-7484 

PC6 

61 School Street 
Barrow-In-Fumess 
Cumbria, UK 
LAM lEW 
Phone: 0229 36957 



COIJ0R2GREY 

Ed Grey Enterprises 
Pja Box 2186 
Ingtewood, CA 90305 
Phone: (213)759-7406 
BBSc (213) 97K«260 



adjustment, double height text, and a 
built-in font editor. 

In all. Typeliner is a very complete 
desktop pubttshing extsntkn to the 
WonMybster program. It produces the 
most professiona} output to a 
dot-matrix printer 1 have ever seen 
from a TS2068/^3ectrum. Although 
the price of Typeliner seems high (and 
I realize that most if not aU 
Timex-Sindair ownere are always 
knking for a bargain)^ from a 
price/performance stand point, nothing 
offered in the Timex-Sbridair worid 
even comes dose: 



John McMfchad 
1710 Palmer Drive 
LaramieiWY 82070 
Phone: (307) 742-4530 



Print Factory DTP Software 
Byte Power 

1748 Meadowview Aveni» 
Pfckering, Ontario LIV 3QB 
Canada 



Print Factory Graphk:s 

John McMichael 
1710 Palmer Drive 
Laramie, WY 82070 
Phone (307)742-4530 



Fonts and More 

Mountaineer Software 
749 HiU Street 
£9 

Paricersburg. WV 26104 
Phone: (304)424-7272 



ttsm4E» ssaom^j — 

In future issues of the Slndalr Desktop 
Publishing Journal we witt kiok at the 
DKTronics Light Writer light pen. the 
Genius Mouse and maybe the 12BK of 

the OOP Art Studto. 

Currently my TSBOO is out of 
conunisskn. But upon its repair we 
wUl return to covering the 
Master-Scribe desktop publishing 
program for the TSIOOO and TS1500 
family. See ya soon! 



RMG Enterprises 
M191/2 7th Street 
Oregon aty, OR 97045 
Phone: (503)655-7484 



Video Interface^ 9CREEN$ Snapper 

Romantic Robot UK Ltd. 
54 Deanscroft Avenue 
London NW9 8EN 
England 

Phone: 081-200^870 (24 Houre) 



Misc. Interfaces & Software 

Date! Etectronics Ltd. 
Qovan Road 

Fanton Industrial Estate 

Fenton, Stoke-Oi^Trant ST4 2RS 

England 

Phone: 0782-744707 (24 Houre) 

Sinclair Desktop Publishing Journal 
1284 Brushwood Avenue 
Cindnnati,OH 45224 



Editor. Do Another Converekn and 
Quit bo BASXl The operatton is very 
simple: When the program LOADs. it 
asks for the filename of the SCREEN$ 
be converted, and it then LOADs the 
SCREEN$ and begins the conversion. 

Wh«i It Is dxme you can view the 
originai SCREENS and the converted 
Qrey Scale SCREENS. If you like it, 
you can SAVE it or you can cto 



This issue of the Sinclair Desktop Publishing Journal was created using 
Word-Master with Typdiner for the first, second and fourth pege& The third 
page was created using The Print Factory^ First Editfon program. The new 
S[PJ masthead was fabricated with The Print Factory's Qirick Screen program, 
and the Companion's Super Set fonts. 

The SCREEN$ snapshot on page two was taken with the Larken NMl button 
and was loaded directly from the snapshd: disk save into Word-Master and 
Typdiner. All boxes and lines were provkled through the Typeliner program 
BoxAine feature. Headline fonts came from Word-Master/Typeliners Fat.Face 

font 
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JUMPER SETTINGS FOR THE 3-2 MEG. DRIVE 

TIVERTON, RHODE ISLAND, USA - DICK TAYLOR 



Well, it sounded easy enough from Miracle System's Ad for the Gold Card in QL World; 
"enables the QL to interface to 3.2M Byte diskdrives (as well as 720K and 1.44)". I could 
certainly sec the possibilities for high density drives. I knew that Miracle had problems 
with an early TEAC ED drive, but they insisted that Gold Card ROM versions 2.15 and 
later had resolved the problem (see earlier issues of IQLR for details).! had been having 
minor problems with one of my floppies, and this seemed to be an opportune time to order 
a replacement and upgrade my system at the same time. Even though the cost of ED floppy 
disks is extremely high ($6.00 per diskette), I only plan on needing a half dozen of them. 
The access speed of the ED drives is 19 ms, the same as for the Miracle System's Hard 
Drive. I plan to setup several "system" disks containing associated programs and use them 
as mini hard drives (3.2 meg. each). This will give me the advantage of a hard drive 
without the high cost. I called J.D. Hannam Distributors and ordered a 3.2M TEAC 
FD235J 3653 for $95.00 and a 1.44M TEAC FD235HF3217 for $55.00.which I received 
within a week. Then the trouble began. The 1.44M drive worked fine with the jumper 
straps in the factory settings. Even the drive select jumper was already in the position to 
make it flp2. The 3.2M drive was another story. It comes with seven jumpers and 28 pins 
on which they can be installed. This provides an almost infinite number of combinations. 
Over the next week. Bob Dyl and I tried just about every one of those infinite 
combinations. Of Uie three write and three read formats that the drive has to recognize, 
(3.2M, 1.44M and 720K), I was able to get almost any combination of five (such as read 
all three densities but only write to 3.2M and 1.44M).My next move was to call Stuart 
Honcyball at Miracle Systems for help.To my surprise, his comment was "we tried a 
TEAC drive when we first started, but never did get it to work". This is not what we had 
been led to believe, nor the level of support we had come to expect from Miracle. He 
further suggested that I call someone in Germany (no suggestion as to who). I wrote to 
Jochen Merz and Franz Hemnann, but as it turned out we solved the problem before they 
couW reply. In the meantime. Bob had been on the phone continuously to J.D.Hannam, 
TEAC and Mitsubishi with the results of our latest attempts. All three of these wganizations 
were terrific and expended a considerable amount of time and cfifort on the part of their 
technical staff to find a resolution. The major problem they had was that they were not only 
unfamiliar with the QUQDOS.but also had no information on Gold Card protocol. By this 
time Bob and I were convinced that a solution could be found, because we had been able to 
find combinations of strap setting that allowed us to read and write to all three densities 
even though we couldn't made it happen all at once.Fmally, TEAC had us start removing 
straps. This put us on the right track that finally led to success. The illustration below 
shows the strap settings Uiat make this drive 100% compatible. The one thing that you may 
want to change fix)m the illustration is th^ strap labelled DSO. The position shown, is for the 
drive to be Flpl. If you want it configured for Rp2 then the DSO strap would have to be 
shifted to A 1 -B 1 .These drives work fantastic, provide a tremendous upgrade in access ' 
speed and storage capability and I would recommend them to anyone with a Gold Card. 



TEAC FD235J 3653(US VERSION) 
TEAC FD235J 3650(EUROPEON VERSION) 
AS RECEIVED MODIFIED SETTINGS 
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TS2 0 68 UPDATE ISSUE DISKS 



These disks contain at least one major piece of software written 
specifically for disk drive and are guaranteed to be worth the 
money . The rest of the disks are filled with various utility 
programs taken from the issues of UPDATE and a few surprises 
thrown in . Hal f of the money goes to the author and is meant to 
encourage new programming for the TS2068 that makes use of the 
various disk drive systems. All are $20.00 per disk (add $1,00 
Canada) except where noted in the listing. Postage and handling 
is included . Both 3 1/2 and 5 1/4 , 40 and 80 track available. 
Please add $5.00 for mailing to other countries . We accept 
personal checks, company checks, money orders. No charge cards 
please. 

1) Daisy Word Processor, now available for Aerco and Oliger. 

2) Bob Hartung DOSDEX UTILITY ISSUE DISK, a complete disk 
management group of programs for the Oliger Interface only. This 
includes Multi -Manager for file handling. This collection h^s 
recently been updated and expanded. 

3) MAIL MERGE ISSUE DISK, Oct 87 and Jan 88 issues of UPDATE 
utilities added to fill out this disk . Includes a tutor program 
for the Mail Merge program. List Looker, Purity, J-Utilities and 
Extra Memory Utilities. Larken, Oliger and Aerco versions. 

4) WIDJUP'S CAD PROGRAM, this will give you professional results 
from your TS2068 for computer aided design. Authored by William 
J. Pedersen, perhaps the NO . 1 authority on the inner workings of 
the TS2068 . This program can be used to create user friendly 
printed circuit boards, computer art or desktop publishing files 
It does not need expanded memory cartridges and is available in 
four versions: (a) Oliger for either IBM compatible printers or 
for the Olivetti Ink Jet. (b) Larken for IBM compatible printers 
or the Olivetti Ink Jet printer. Please specify version. NEW! 

5) OLIGER DISK DRIVE BBS PR0GPJ^J4, this allows users of the 
Oliger interface to be able to operate a disk based bulletin 
board from the TS2068. The disk is also filled with many other 
Oliger disk routines and tips on using the Oliger System. New by 
Paul Holmgren. Can use upto four DSQD disk drives. 

6) The HYBISCUS ENSEMBLE, consisting of two separate, but 
complimentary sets of programs. A) t Daisy .B6 Ensemble, and B) 
Udbm.B6 Ensemble. LKDOS only, $22 each or $36 for both. The best 
file and database available for Lairken, by Bill Jones. The price 
remains the same on this one, no change. Wordprocessor included. 

7) TS2068 Super Calc by Bill Jones . Available in both Larken and 
Oliger formats. Handles loans, amortization, savings and fixed 
investments, plus a calculator and all for only $15. 

UPDATE COMPUTER SYSTEMS invites you to submit software programs 
that may become Issue Disks. Please submit program on disk, with 
documentation and article to accompany the program. Our goal is 
to get North American software available and known . We also 
solicit minor programs, tips and utilities for print in future 
issues of the magazine. Please do not submit unlistable programs 
or copy protected programs. 



OL UPDATE ISSUE DISKS 



These disks contain at least one major piece of software written 
specifically for disk drive and are guaranteed to be worth the 
money. The rest of the disks are filled with various utility 
programs taken from the issues of UPDATE and a few surprises 
thrown in. Half of the money goes to the author and is meant to 
encourage new programming for the OL that makes use of the 
disk drive systems, and microdrives on both the expanded and 
unexpanded QL. Where possible we will give a version for each of 
these configurations. Some of the programs take advantage of TK2 
by Tony Tebby. All are 20.00, except QLuster, which is $15.00; 
includes P & H, add $1.00 CAN . Ava i lable as 3 1/2 or 5 1/4 disks. 
Add $5.00 for mailing to other countries. We accept personal 
checks, company checks, money orders as well as International 
Postal Money Orders, but no charge cards. I f order ing on MDV , 
then please include one that is already formatted, so we will 
know it will run on your QL. Due to the expense of MDVs this is 
necessary. If two MDVs are required we will state so in the ad. 

1) HARTUNG UTILITY ISSUE DISK- Several excellent programs such 
as stand alone data base. Address, and QSO files. All are in 
Superbasic. Lots of hints and tricks for programmers. Requires 
some knowledge of Superbasic or a yen to learn. Recently updated 
by Bob Hartung. Address file can be used as inventory program, 
ft can print out labels. Both screen or paper printouts can be 
by Alpha sort, or be by last name. 

2) CABLE ARCHIVE ISSUE DISK- Contains six Archive programs along 
with Doc files to get you going on making use of the Archive 
programming language. Also has Tasket , plus Doc file, to give 
you multi-tasking on your QL (much cheaper than QRAM or 
Taskmaster). Included is Arithmetic, a Superbasic program for 
math, along with math drills. This is for both the advanced and 
beginner user and greatly extends the use of Archive. To order 
on microdrive send two formatted microdrives, too much for one? 

3) CLUSTER ISSUE DISK by Al Feng- Ql utilities to unclutter your 
disks and microdrives. COPY, DELETE, FORMAT, PRINT, VIEW, plus 
extended use of some Tool Kit 2 commands. TK2 is required. These 
are TURBO compiled for speed. .Multitasks and uses minimal key 
presses. Includes Fast -Di'sk -and Vegemat2, a super clone making 
program- Also Snap Shot-a directory column or condensed printout 
program . 

4) DOS EMULATOR COMPANION ISSUE DISK by Al Feng- Just released 
in Oct. issue. Makes better use of Solution, PC Conqueror, 
Discover, XOVER , QLuster and scr_codes. If you are going to use 
the emulators, then check this out, you won't regret this buy. 

5) QLuMSi DOS by Al Feng- a MSDOS simulator and front end 
program for the QL , also includes other programs by AL Feng for 
file management and cloning of programs. A Great Learning Tool 

UPDATE COMPUTER SYSTEMS invites you to submit software programs 
that may become Issue Disks. Please submit program on disk, with 
documentation and article to accompany the program. We are here 
to get North American software available and known. We solicit 
programs, tips, reviews and utilities for future issues. 



